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BUSLIJN 18,19,15 

OPEN VAN 10.00 tot 18.00 


Maandag van 13.00 tot 18.00 
Koopavond tot 21.00 

NIEUWE TITELS IN ONS ASSORTIMENT : 


GAMES GEBRUIKSPR0GRAMMA,S 


BATTLE FOR MIDWAY 

FL 45,- 

mt TELCOM MODEM EN SOFTWARE 

fl 699,- 

MUTANT MONTY 

FL 35,- 

WIE WAT DISK 2 

fl 449,- 

THE BOSS 

fl 35,- 

WAT WAAR DISK 2 

fl 449,- 

THE WAY OF THE TIGER 

fl 39,- 

WORDPROCESSOR 

fl 195,- 

SPACE RESQUE 

fl 25,- 

SPREADSHEET 

fl 195,- 

WORDSTORE DISK 

fl 69,- 

MT BASE 2 

fl 199,- 

FLIGHTDECK DISK 

fl 69,50 

PRESTO (database) 

fl 199,- 

NORTHSEA HELICOPTER DISK 

fl 69,50 

TASWORD 2 

fl 95,- 

GUNFRIGHT 

fl 45,- 

FINAD 

fl 299,- 

OILSWELL 

fl 45,- 

MSX DOS 

fl 159,- 

TIMECURB 

fl 45,- 

ZEN 

fl 95,- 
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LET OP MET INGANG VAN 1 MEI HEEFT ONZE POSTORDER AFDELING EEN EIGEN PAND GEOPEND , HET ACRES IS: 

VAN KINSBERGEN STRAAT 62 1057 PT AMSTERDAM TELEFOON 020-183001 
U KUNT LM BESTELLINGEN OPGEVEN VAN MAANDAG TOT VRIJDAG TUSSEN 10.00 en 14.00 
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WIJ HEBBEN HET GROOTSTE ASSORTIMENT MSX SOFTWARE EN BOEKEN IN VOORRAAD . 

RUIM 300_software titels en 95 boektitels kunt u bij ons vinden . 

TEVENS VERZORGEN WIJ DEMONSTRATIES EN KUNT U EIGEN GEMAAKTE PROGRAMMA,S OP ONZE PRINTER UIT LATEN 
PRINTEN .OOK GEVEN WIJ ADVIES OVER HARDWARE EN HEBBEN WIJ DIVERSE DOKUMENTATIE VOORHANDEN. 
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NIEUW IS ONZE AFDELING OPLEIDING HIER KUNT U TERECHT VOOR OPLEIDINGEN OP DIVERS GEBIED O.A 
Basictraining - machinetaal - Wordstar - - etc 

VOOR INLICHTINGEN KUNT U BELLEN NAAR 020 -183001 

DE KOSTEN VOOR DEZE OPLEIDINGEN BEDRAGEN FL 20,= per uur EN WORDEN DOOR VAKBEKWAME PROGRAMEURS 
VERZORGT . DE LESAVONDEN ZIJN GEPLAND OP DE MAANDAGAVONDEN . 
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HEtFT U VRAGEN OVER HARDWARE OF SOFTWARE ? , BEL ONS EN WIJ ZULLEN PROBREREN CM ZE VOOR U TE 
BEANTWOORDEN . 020-123206 of 020-183001 
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MSX "SOFTPOST" 
van KINSBERGENSTRAAT 62 
1057 pt AMSTERDAM 
TELEFOON 020-183001 

U kunt dagelijks bellen voor 
informatie en bestellingen 
tussen 10.00 en 14.00 uur 
Verzending onder rembours 
kost F1 8,75 extra . 
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VOORWOORD 


WIE WEET oE OPLOSSING 


Laat ook hier de 'wereldstandaard' ons weer in de steek of is er 
iets anders aan de hand? 

Wij zijn bezig met enkele specifieke diskprogramma's en stuiten 
op problemen met de MKS$, MKD$, MKI$, CVI, CVS, en CVD 
opdrachten. Bij gebruik van deze functies worden onze 
programma's verminkt. Dit gebeurt alleen bij de grotere 
programma's (groter dan ca. 6K). Zodra een van deze functies 
wordt gebruikt worden hele stukken BASIC-programma verminkt. Dit 
vindt allemaal plaats in het laatste gedeelte van het programma 
en de verminkingen schuiven op naar het midden wanneer een 
programma groter wordt. Met kleinere programma's heb je dus 
niets in de gaten (of worden dan de variabelen verminkt?). We 
hebben van alles geprobeerd, maar zijn er nog niet uit. Wie 
helpt ons? 

En dat was dan het begin van mijn voorwoord. Ja, ik moet ook 
ergens mijn ei kwijt. 

WE LOPEN ALTIJD EEN BEETJE ACHTER 


Dat is het risiko van een 2-maande l ijks blad. Toen we schreven 
dat Philips alweer met een nieuwe MSX 2 machine zou komen, was 
deze er al op het moment dat het vorige blad in de winkel lag. 
Ik heb het uiteraard over de VG-8235 met 2x 128K RAM. Deze 64K 
extra RAM is leuk meegenomen en nog leuker is het pakket 
software dat Philips bij deze machine levert. Dat maakt deze MSX 
2 al wat goedkoper dan een MSX 1 met een drive en een 
soortgelijk pakket! De nieuwe video-chip, de uitgebreide video 
RAM en de 80 kolommen krijg je er dan ook nog bij. De Sony 
daaraantegen is maar matigjes met z'n extra's en voor die prijs 
moet je je toch wel afvragen of een andere machine (PC-kloon 
b.v.) niet gunstiger is. Maar wie weet is alles al weer 
veranderd als dit blad in de winkel ligt. Tussen dit tikwerk en 
het verschijnen van dit nummer zat nog een vakantie die het 
actueel zijn helemaal bemoeilijkt. 


OP NAAR DE 25000 


De MSX Gids begint nu echt te groeien en als alles in het 
huidige tempo blijft doorgaan zitten we aan het eind van het 
jaar op een oplage van 25000 exemplaren. Het papier van het 
binnenwerk zou bij dit numer al van betere kwaliteit moeten zijn 
(en anders zeker bij het volgende nummer) en het zetten van de 
tekst zal ook niet lang meer op zich laten wachten. We hebben al 
enkele noodkreten gehoord van lezers die bang zijn dat nu ook 
dit blad uit de hobbysfeer zal verdwijnen maar deze lezers 
kunnen gerust zijn. Zolang ik de hoofdredakteur ben zal de MSX 
Gids een echt hobbyblad blijven; al wordt de oplage 2 keer zo 
groot. 


ALFRED DEBELS 





HET VERLATEN KERKHOF 


Het verlaten kerkhof is een tamelijk 
lastig strategie spel. Het spel heeft 5 
velden en de mogelijkheid om zelf velden 
bij te maken; hiervoor is wel enige 
programmeer ervaring vereist. De struktuur 
van het programma is echter goed 
doorzichtig. 

Het spel 

Het gaat erom, op 5 verlaten(?) kerkhoven, 
de -eens achtergelaten - zilveren kruisjes 
te verzamelen. Deze kruisjes liggen niet 
elke keer op dezelfde plaats dus het 
uitstippelen van en gunstige route is niet 
mogelijk. De speler wordt tegengewerkt 
door 3 spoken die hun speelgoedjes zien 
verdwijnen en niet geraakt mogen worden. 
Het veld bestaat uit verschillende 
grondsoorten: 

Gras: hier kan normaal worden gelopen. Op 
plaatsen waar men al geweest is vormt zich 
een pad. Op deze paden kan met dubbelle 
snelheid worden gelopen. 

Struiken: hier gaat het lopen iets 
moeilijker en er komen geen paden. 

Rotsgrond: hetzelfde als bij struiken. 

Op het water kan uiteraard niet worden 
gelopen; zelfs niet door de spoken. 

Op de velden bevinden zich nog magische 
lampen. Deze laten de spoken niet door en 
geven de speler, bij het bereiken van de 
lampen, en extra stuk pad in 4 richtingen. 

Wacht niet te lang met het verplaatsen van 
de speler. De spoken lopen (heel langzaam) 
wel door! Aan het eind van het spel zit 
nog een uitgebreide routine waarin de 
scores van de spelers kunnen worden 
bijgehouden. Het invullen van de naara 
gebeurt met de cursortoetsen. Let op, na 
het uitschakelen van de computer zijn de 
scores ook verdwenen. 

Dit spel is bijzonder geschikt om 
speelvelden bij te maken. Wat bijvoorbeeld 
te denken van een veld roet een vierde 
(onzichtbaar) spookje, dat — heel verve - 
lend- de gemaakte paden weer uitwist. 

Misschien stuurt iemand nog een leuke 
suggestie in. Succes met het spel en tot 
en volgende ronde? 

Alfred. 
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’#*###****** ********* **** 
'* HET verlaten kerkhof * 

’* <c >1986 De MSX GIDS * 
f ************************ 


:SCREEN 2,0,1:CLEAR 2 
:LV=3:Q=0 


COLOR 15,1,1 
00:DEFINT A~Z' 

70 X=RND(-TIME) 

60 GOSUB 4420 

90 ON V GOSUB 1130,1500,1910,2480,30 
40 

100 K=9+V:M=0:PZ=15-V 

110 TIME=0:IF V=5 THEN PZ=0 

120 X0=248:Y0=88:PUTSPRITE0,<X0,Y0>, 

15 „ 0 * 

130 LINE(192,88)-(207,95),1,BF 
FOR 1=248 TO 192 STEP-1 
SOUND 13,9:SOUND 12,1 
SOUND 1,0!SOUND 0,50 
PUT SPRITE 0,(I,Y0>,15,0 
NEXTs X0=192 ’ 

LINE <200,88)-(207,95),13,BF 


140 

150 

160 

170 

180 

190 

200 

210 

220 


’ CURSOR 

K1 IF STICK (0) =7 THEN X0=X0-8: P=POI 
NT(X0,Y0)!GOTO280 

2o>0 IF SriCK<0>=3 THEN X0=X0+Si P=POI 
NT <X0,Y0):GOTO300 
240 IF STICK(0) =1 
NT(X0,Y0>iGOTO 320 

250 IF STICK(0)=5 THEN Y0=Y0+8:P=POI 
NT <X0,Y0):GOTO 340 
260 IF TIME=500 THEN TU1E=0sGOTO 
GOTO 220 
IF P=6 OR P=13 


270 

280 

820 

290 

300 

820 

310 

320 

820 

330 

340 

820 

350 

360 

370 

380 

390 


THEN Y0=Y0~8:P=POI 


B20 


GOTO 380 

IF P=6 OR 


GOTO 
IF P* 


380 
'6 OR 


GOTO 380 
IF P=6 OR 

GOTO 380 


THEN X0=X0+8:GOTO 


P-13 THEN X0=X0~8:GOTO 
P=13 THEN Y0=Y0+S: GOTO 
F~13 THEN Y0=Y0-8:GOTO 


0,25 


’ SPELER VERPLAATSEN 
X=X0:Y=Y0:TIME=0 
„SOUND 13,9:SOUND 12,7:SOUND 
4!SOUND 1,0 
400 PUT SPRITE 0,(X0,Y0),15,0 

™ EN GOSUB 4990: SC=SC+1: 1*1 
=0:GOTO 800:REM DIT WAS GRAS 
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420 IF P=1 AND 11=0 THEN M=l:GOSUB 49 

90:FORJ=1TO400:NEXT s GOTO220 

430 IF P=15 THEN SC=SC+10+V:K=K-1:GD 

SUB 4990:GOTO 800:REM KRUIS GEPAKT 

440 IF P=10 THEN 590:REM LICHT 

450 IF P=12 OR P=14 THEN 740:REM BOS 

JE/ROTSEN 

460 IF P=4 THEN 510 

470 IF M=1 THEN M=0:GGTO 800:REM 2X 
GEWEEST 

480 STOP : REM HIER MAG HIJ NIET KOM 
EN 

490 ’ 

500 'IN WATER 

510 SOUND 1,0:SOUND 11,1:SOUND 12,4 

520 FOR 1=255 TO 35 STÈP -10 

530 SOUND 13,9:SOUND 0,1 

540 PUT SPRITE 0,<X0,Y0>,1/17,0 

550 NEXT 

560 GOTO 3470 

570 ' 

580 ' MAGISCHE LAMP 

590 SC=SC+10+V:M=0 

600 GOSUB 4990 

610 FOR 1=8 TO 48 STEP 8 

620 SOUND 13,9:SOUND1,9:SOUND12,3:SO 

UND0, I 

630 COLOR,,1/8+5 

640 X=X0+ï : Y=Y0: IF P0INT(X,Y>=2 THEN 
GOSUB 4990 

650 X=X0-I:Y=Y0: IF P0INT<X,Y)=2 THEN 
GOSUB 4990 

660 X=X0:Y=Y0+I: IF P0ÏNT<X,Y)=2 THEN 
GOSUB 4990 

670 X=X0:Y=Y0-I :IF P0INT(X,Y)=2 THEN 
GOSUB 4990 
680 COLOR,,1/8 
690 NEXT 

700 COLOR,,RND(1)*13+1 
710 X=X0:Y=Y0: GOTO 800 
720 ' 

730 ’ BOSJE/ROTSEN 
740 SC=SC+V 
750 I=RND(1)* 10 
760 IF 1=0 THEN M=1 
770 GOTO 800 
780 ' 

790 ’ SPOOKJES VERPLAATSEN 
800 GOSUB 4840 

810 IF K=0 THEN LINE(200,88)-<207,95 
) , 1, BF 

820 IF PZ >0THENPZ=PZ— 1:GOTO220 
830 FOR 1=1 TO 3 
840 IF M=1 THEN 870 

850 IFX <I)<X0THENP=POINT < X <I)+8,Y(I) 

):GOTO910 

860 IFX <I)>X0THENP=POINT< X(I)-8,Y <I) 

)s GOTO930 

870 IF Y (I > < Y0THENP=POINT< X < I),Y<I)+8 
):GOTO950 

880 IFY<I)>Y0THENP=POINT(X(I),Y<I)-8 

):GOTO970 

890 NEXT 

900 GOTO 1010 

910 IFP<30RP=140RP=120RP=15THENX<I)= 
X < I)+8:GOTO890 
920 GOTOB70 

930 IFP<30RP=140RP=120RP=15THENX(I)= 
X < I)-8:GOTO890 
940 GOTO870 

950 IFP<30RP=140RP=120RP=15THENY<I)= 
Y(I)+8:GOTOB90 
960 GOTO890 

970 IFP<30RP=140RP=120RP=15THENY(I)= 
Y(I)—8:GOTOB90 
980 GOTO 890 
990 ' 


1000 

1010 

1020 

1030 

1040 

1050 

1060 

0 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 


STOP:REM MAG HIER NIET KOMEN 
PUT SPRITE 1,(X(1),Y(1)),5,1 
PUT SPRITE 2,<X<2>,Y<2)),8,2 
PUT SPRITE 3,(X(3),Y(3)),10,3 
IF X0>235 THEN 3320 
FOR 1=1 TO 3 

IF X0=X(I) AND Y0=Y (I) THEN 347 
NEXT 

IF V=5 THEN GOSUB 3160 
IF 11=1 THEN M=0: GOTO 820 

GOTO 220 
!* 

' VELD 1 
GOSUB 4180 

FOR Y=56 TO 120 STEP 8 
FOR X=64 TO 136 STEP 8 
GOSUB 5250 
NEXT:NEXT 

LINE<24,16)-<39,31),1,BF 
LINE<168,16)-<183,31),1,BF 
LINE<24,160)-<39,175),1,BF 
LINE<168,160)-<183,175),1,BF 
FOR Y=16 TO 24 STEP 8 
FOR X=24 TO 32 STEP 8 
GOSUB 5400 
y=Y+144:GOSUB 5400 
X=X+144:GOSUB 5400 
Y=Y-144:GOSUB 5400 
X=x-144:NEXT:NEXT 
FOR Y=152 TO 160 STEP 8 
FOR X=64 TO 136 STEP 8 
GOSUB 5030:NEXT:NEXT 
X=144:Y=48:GOSUB 5620 
X *144:Y=128:GOSUB5620 


1340 X=56:Y=48:GOSUB 5620 
1350 X=56:Y=128:GOSUB5620 
1360 ' 

1370 'KRUISJES PLAATSEN 

1380 FOR 1=1 TO 20 

1390 X=RND <1)*23+1:X = X*8 

1400 Y=RND<1)*22+1:Y=Y*8 

1410 IF POINT <X,Y)< >2 AND POINT<X,Y) 

012AND POINT <X,Y)<>14 THEN 1390 

1420 GOSUB 5500:NEXT 

1430 X<1)=8:Y<1)=8:PUTSPRITE 1,<X<1) 


, Y < 1) ) , 5, 1 

1440 X(2)=8:Y <2)=88:PUTSPRITE2, <X(2) 
Y <2) ) 8 2 

1450 X<3)=8:Y<3)=176:PUTSPRITE3,<X<3 


),Y<3)),10,3 
1460 ' 

1470 RETURN 
1480 ' 

1490 ' VELD 2 
1500 GOSUB4180 

1510 LINE <128,8)-<183,183),1,BF 
1520 FOR Y=8 TO 176 STEP B 
1530 FOR X=128 TO 176 STEP 8 
1540 GOSUB 5400:NEXT:NEXT 
1550 LINE <144,24) — <167,167 >,1,BF 
1560 FOR Y=24 TO 160 STEP 8 
1570 FOR X=144 TO 160 STEP 8 
1580 GOSUB 5260:NEXT:NEXT 
1590 LINE < 40,24)-< 63,47),1,BF 
1600 LINE < 40,144)-< 63,167),1,BF 
1610 FOR Y=24 TO 40 STEP 8 
1620 FOR X=40 TO 56 STEP 8 
1630 GOSUB 5400:NEXT:NEXT 
1640 FOR Y=144 TO 160 STEP 8 
1650 FOR X=40 TO 56 STEP 8 
1660 GOSUB 5400:NEXT:NEXT 
1670 Y=72:FOR X=40 TO 96 STEP 8 
1680 GOSUB 5170:NEXT 
1690 LINE<40,80)-<55,111),1,BF 
1700 X=40:FOR Y=80 TO 104 STEP 8 
1710 GOSUB 5180:NEXT 
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1720 X=48:F0R Y=80 TO 104 STEP 8 

1730 GOSUB 5180!NEXT 

1740 Y=104!FOR X=56 TO 96 STEP 8 

1750 GOSUB 5170:NEXT 

1760 X=184:Y=48 

1770 GOSUB 5620 

1780 X=184:Y=136 

1790 GOSUB 5620 

1800 FOR 1= 1 TO 20 

1810 X=RND(1)*22+1:X=X*8 

1820 Y=RND<1)*22+1iY=Y*8 

1830 IF POINT<X, Y) 02 AND POINT<X,Y) 

012 AND PO INT <X,Y)014 THEN 1810 

1840 GOSUB 5500:NEXT 

1850 X <1)=8:Y(1)=8: PUTSPRITE 1,<X(1) 

,Y(1)),5,1 

1860 X(2)=8:Y(2)=88:PUTSPRITE2,<X<2) 
Y (2) ) 8 2 * 

1870 X(3)=8!Y <3) = 176!PUTSPRITE3- <X<3 
),Y(3)), 10,3 
1880 RETURN 
1890 ' 

1900 » VELD 3 

1910 LINE(8,B)~<199,183),l.BF 

1920 FOR Y=8 TO 32 STEP 8 

1930 FOR X=S TO 192 STEP 8 

1940 GOSUB 5400 

1950 Y=Y+144 

1960 GOSUB 5400 

1970 Y=Y~144:NEXT!NEXT 

1980 FOR Y=40 TO 144 STEP 8 

1990 FOR X=8 TO 192 STEP 8 

2000 GOSUB 4910 

2010 NEXT!NEXT 

2020 FOR Y=16 TO 24 STEP 8 

2030 FOR X = 16 TO 168 STEP 8 

2040 IF X=B8 OR X=96 THEN 2090 

2050 GOSUB 5250 

2060 Y=Y+144 

2070 GOSUB 5250 

2080 Y=Y-144 

2090 NEXT 

2100 NEXT 

2110 J = 136 

2120 FOR Y=4B TO 136 STEP 8 

2130 FOR X=J TO J+32 STEP 8 

2140 GOSUB 5030 

2150 NEXT*. J=J~B: NEXT 

2160 FOR Y=56 TO 96 STEP 8 

2170 FOR X=24 TO 64 STEP 8 

2180 GOSUB 5390 

2190 NEXT:NEXT 

2200 FOR Y=96 TO 128 STEP B 

2210 FOR X=152 TO 184 STEP 8 

2220 GOSUB 5390 

2230 NEXT:NEXT 

2240 FOR Y=4B TO 56 STEP 8 

2250 FOR X=88 TO 104 STEP 8 

2260 GOSUB 5170 

2270 X=X+16: Y=y+B0 

2280 GOSUB 5170 

2290 X=X-16: Y=Y~B0 

2300 NEXT:NEXT 

2310 FOR Y=112 TO 128 STEP 8 

2320 FOR X=24 TO 32 STEP 8 

2330 GOSUB 5170 

2340 NEXT!NEXT 

2350 X=88:Y=72:GOSUB 5620 

2360 X=136:Y=112:GOSUB 5620 

2370 FOR 1= 1 TO 20 

2380 X=RND(1)*22+1:X=X*B 

2390 Y=RND(1)*22+1:Y=Y*8 

2400 IF POINT < X, Y) < >2 AND PQINT<X,Y> 

012 AND PO INT < X, Y) 014 THEN 2380 

2410 GOSUB 5500!NEXT 

2420 X(1 )=8:Y (1)=8:PUTSPRITE 1,(X<1) 

,Y(1)) , 5, 1 


2430 X(2)=8!Y(2)=88!PUTSPRITE2,(X <2> 
Y (2) ) 8 2 

2440 X(3)=S:Y<3)=176:PUTSPRITE3,(X(3 

),Y(3)) f 10 f 3 

2450 RETURN 

2460 ’ 

2470 •' VELD 4 

2480 LINE <8,8)-(199,183),1,BF 

2490 Y=8:FOR X=8 TO 192 STÈP B 

2500 GOSUB 5400 

2510 Y=Y+168:GOSUB 5400 

2520 Y=Y-168:NEXT 

2530 X=8:FOR Y=16 TO 168 STEP 8 

2540 GOSUB 5400 

2550 X=X+184:GOSUB 5400 

2560 X=X-184:NEXT 

2570 FOR Y=16 TO 24 STEP 8 

2580 FOR X=16 TO 184 STEP 8 

2590 GOSUB 5180 

2600 Y=Y+144:GOSUB 5180 

2610 Y=Y-144iNEXTsNEXT 

2620 FOR Y=32 TO 152 STEP 8 

2630 FOR X=16 TO 24 STEP 8 

2640 GOSUB 5180 

2650 X=X+160:GOSUB 5180 

2660 X=X-160:NEXT:NEXT 

2670 FOR Y=32 TO 152 STEP 8 

2680 FOR X=32 TO 168 STEP 8 

2690 GOSUB 4910 

2700 NEXT:NEXT 

2710 FOR Y=4B TO 136 STEP 8 

2720 FOR X=48 TO 152 STEP 8 

2730 GOSUB 5390:NEXT:NEXT 

2740 FOR Y=80 TO 96 STEP 8 

2750 FOR X=160 TO 192 STEP B 

2760 GOSUB 4900:NEXT:NEXT 

2770 FOR Y=64 TO 72 STEP 8 

2780 FOR X=64 TO 72 STEP 8 

2790 GOSUB 5250 

2800 Y=Y+48:GOSUB 5250 

2B10 X=X+64:GOSUB 5250 

2820 Y=Y-48:GOSUB 5250 

2830 X=X-64:NEXT:NEXT 

2840 FOR Y=72 TO 104 STEP 8 

2850 FOR X=96 TO 104 STEP 8 

2860 GOSUB 5030:NEXT:NEXT 

2870 X=8: FOR Y*=16 TO 168 STEP 8 

2880 GOSUB 4900:NEXT 

2890 X=40:Y=40:GOSUB 5620 

2900 X=40:Y=144:GOSUB 5620 

2910 X=168:Y=32:GOSUB 5620 

2920 X=16B:Y=152:GOSUB 5620 

2930 FOR 1= 1 TO 20 

2940 X=RND(1)*22+1:X=X*8 

2950 Y=RND<1)*22+1:Y=Y*B 

2960 IF POINT <X,Y)< >2 AND POINT(X.Y) 

012 AND PO INT (X, Y) 014 THEN 2940 

2970 GOSUB 5500:NEXT 

2980 X (1) =32: Y (1) =32: PUTSPRITE ,1- (X < 
l),Y<i)),5,l ' 

2990 X(2)=32:Y(2)=88:PUTSPRITE2, <X<2 
) Y (2) ) 8 2 

3000 X(3)=32:Y(3)=152:PUTSPRITE3. <X< 
3),Y<3)),10,3 
3010 RETURN 
3020 ’ 

3030 ’ VELD 5 

3040 GOSUB 4180 

3050 FOR 1=1 TO 20 

3060 X=RND<1)*17+1:X=X*8 

3070 Y=RND(1)*22+1:Y=Y*8 

3080 IF PO INT < X , Y) 02 AND P0ÏNT(X,Y) 

012AND PO INT (X, Y) < >14 THEN 1390 ' 

3090 GOSUB 5500:NEXT 

3100 X(1)=8:Y <1)=8:PUTSPRITE 1, < X <1) 

, Y < 1) > , 5, 1 







3110 X(2)=8:Y(2)=88:PUTSPRITE2,(X <2) 
Y(2) ) 8 2 

3120 X<3>=8:Y<3)=176iPUTSPRITE3, <X <3 
> ,Y<3>),10,3 
3130 RETURN 


3140 ’ 

3150 'SUBROUTINE SPOOKJES 
3160 X = X(1)—8:Y=Y(1) 

3170 IF POINT <X,Y)=2 THEN 
3180 X=X(1):Y=Y(1)-8 
3190 IF POINT(X , Y) =2 THEN 
3200 X = X<2)-B:Y=Y<2> 

3210 IF POINT(X,Y)<3 THEN 
3220 X = X(2)!Y=Y<2>-8 
3230 IF POINT < X,Y)<3 THEN 
3240 X=X<3)~8:Y=Y(3) 

3250 IF POINT<X,Y)<3 THEN 
3260 X-X(3)!Y=Y<3)+8 
3270 IF POINT< X , Y) <3 THEN 
3280 RETURN 
3290 ' 


VELD 5 
GOSUB 5250 
GOSUB 5250 
GOSUB 5030 
GOSUB 5030 
GOSUB 5390 
GOSUB 5390 


3300 


3310 'RONDE GEHAALD 
3320 SOUND 1,0!SOUND 12,2 
3330 FOR 1=255 TO 10 STEP -1 
3340 SOUND 13,9:SOUND 0,1 
3350 NEXT 

3360 FORI=0TO3:PUTSPRITEI, < 8,209)s NE 
XT 


3370 SC=SC+LV*100 

3380 GOSUB 4840 

3390 SC=SC+V*100 

3400 GOSUB 4840 

3410 V=V+1!IF V>5 THEN 3690 

3420 IF Q=0 AND SC>2000 THEN Q=1:LV= 

LV+1 

3430 GOSUB 4300 
3440 GOTO 90 
3450 ’ 

3460 'MANNETJE GEPAKT 
3470 BEEP 

3480 X*="V15T4001L10EL16EL32DL10EL16 
F+L32FL16FL32EL16EL32DL8E" 

3490 Y*="V15T40O2L10EL16EL32EL10FL16 
G+L32GL16GL32FL16FL32EL8F" 

3500 FORI=0TO3!PUTSPRITEI,(8,209)!NE 
XT 

3510 PLAY X*,Y$ 

3520 LV=LV-1 


3530 IF SC>100 THEN SC=SC-100 

3540 GOSUB 4840 

3550 GOSUB 4300 

3560 IF LV=0 THEN 3610 

3570 IF PLAY <0)=0 THEN GOSUB 4790!GO 

TO 90 

3580 GOTO 3570 


3590 - 

3600 ’ NIET GEHAALD MANNETJES OP 
3610 LI NE (8,8) ~ (198, 183) , 1, BF 
3620 COLOR 9 

3630 FOR I■ 10 TO 150 STEP 8 

3640 PRESET (30, I) -.PRINT# 1, "NIET GEHA 

ALD! " 

3650 NEXT 
3660 GOTO 3740 
3670 ’ 

3680 ’ GEHAALD-'E INDE-AFGELOPEN-UIT. 
3690 LINE(8,8)—(198,183),1,BF 
3700 COLOR 9 

3710 FOR 1= 10 TO 150 STEP 8 
3720 PRESET(30,I>:PRINT#1,"GEHAALD. 
KNAP WERK!" 

3730 NEXT 

3740 LINE(8,8)-(198,183),1,BF 

3750 PRESET(24,16):PRINT#1,"HET VERL 

ATEN KERKHOF" 

3760 PRESET(25,16):PRINT#1,"HET VERL 
ATEN KERKHOF" 

3770 COLOR 6 


3780 PRESET(64,32):PRINT#1,"TOPSCORE 
S" 

3790 PRESET(65,32):PRINT#1,"TOPSCORE 
S" 

3800 LINE(40,43)—(159,140),14,B 

3810 COLOR 10 

3820 FOR 1=1 TO 6 

3830 IF SOHS(I) THEN 3850 

3840 NEXT!GOTO 3880 

3850 X*=" ":FOR J=I TO 6 

3860 SWAP SC,HS < J >!SWAP X*,HS$(J) 

3B70 NEXT 

3880 FOR J=1 TO 6 

3890 X=48:Y=J*16+32 

3900 PRESET (X,Y) *.PRINT#1, J; "i " 

3910 PRINT#1,USING"#####"$ HS < J) 

3920 PRESET(X +80,Y)!PRINT#1,HS$(J) 
3930 NEXT 

3940 IF I>6 THEN 4090 
3950 X=128!Y=I*16+32 
3960 HS$(I>="" 

3970 FOR J=1 TO 3 
3980 

3990 PRESET<X,Y)iPRINT#1,CHR*(M) 

4000 X$=INKEY*!lF X$=""THEN 4000 
4010 K=ASC(X$> 

4020 IF K=29 THEN M=M-l!IF M<65 THEN 
M=90 

4030 IF K=28 THEN M=M+l!lF M>90 THEN 


M=65 

4040 LINE < X,Y) — (X+7,Y+7),1,BF 
4050 PRESET(X,Y):PRINT#1,CHR$(M) 

4060 IF K=32 THEN X=X+8:HS$(I)=HS*(I 
)+CHR$(M)!GOTO 4080 
4070 GOTO 4000 
4080 NEXT 

4090 PRESET<16,168)!PRINT#1,"NOG EEN 
KEER? J/N" 

4100 X$=INKEY$:IF X$=""THEN 4100 

4110 IF X*="J" OR X*="j" THEN 4140 

4120 IF X*="N" OR X$="n" THEN END 

4130 GOTO 4100 

4140 RESTORE 5700!CLOSE 

4150 GOTO 70 

4160 ’ 

4170 'VELD(GRAS)OPBOUWEN 
4180 LI NE < 8, 8) - (198, 183) , 1, BF 
4190 C0L0R2 

4200 FOR Y=B TO 176 STEP 8 
4210 FOR X=8 TO 192 STEP 8 
4220 SOUND 13,9!SOUND 0,Yi SOUND1,0 
4230 PSET <X,Y):PSET(X+7,Y) 

4240 PSET < X ’, Y+7) ! PSET (X+7, Y+7) 

4250 LINE <X+2,Y+3) — (X+5,Y+3) 

4260 NEXT!NEXT 
4270 RETURN 
4280 ’ 

4290 'LEVENS TELLEN 

4300 LINE(215,103)-(239,135),1,BF 

4310 COLOR15 

4320 SOUND 1,8:S0UND2,4:SOUND13,9 
4330 IF LV>0 THEN PRESET(215,102)sPR 


INT#1,"0" 

4340 ÏF LV>1 THEN PRESET(215,11i):PR 
INT#1, " 0 " 

4350 ÏF LV>2 THEN PRESET<215,120)!PR 
INT#1,"6" 

4360 ÏF LV>3 THEN PRESET(215,129)!PR 
INT#1,"ö" 

4370 RETURN 
4380 ' 

4390 'TEKST 
4400 ' 

4410 'INITIALISATIE 

4420 PLAY"S9M2999T70L1501CCGG02DCDCB 
BAAGGFFEEDDC","T70L1504CCGG06DCDCBBA 
AGGFFEEDDC" 

4430 X0=0!Y0=0!X(1)=0!Y <1)=0!X(2)=0! 


Y(2)=0:X <3)=0;Y(3)=0:V=liSC=0 



4440 LINE <0,0>-<255* 191),13,B 
4450 LINE<6,6)-<249; 184) , 13, B 
4460 PAINT <1,1) , 13 
4470 LINE<200,6)-<205, 191) , 13, BF 
4480 FOR 1=0 TO 3 
4490 X$="":FOR J=1TDB 
4500 READ XiX$=X$+CHR*(X) sNEXT 
4510 SPRITEf(I)=X$:NEXT 
rni op i "ï 

4530 OPEN"GRPï"FDR OUTPUT AS#1 
4540 PRESET(208,10):PRINT#1,"HET" 
4550 PRESET(209,10):PRINT#1,"HET" 
4560 PRESET<208,18):PRINT#1,"VER-" 
4570 PRESET(209,18)sPRINT#l,"VER-" 
4580 PRESET <208,26) iPRINT#l, ,, LATEN" 
4590 PRESET <209,26)!PRINT#1,"LATEN" 
4600 PRESET < 208,34):PRINT#1,"KERK-" 
4610 PRESET<209,34):PRINT#li"KERK-" 
4620 PRESET < 208,42):PRINT#1,"HOF." 
4630 PRESET(209,42):PRINT#1,"HOF." 
4640 PRESET < 207;54)iPRINT#1,"<" 

4650 PRESET<212,53):PRINT#ll"c" 

4660 PRESET<217,54):PRINT#1,")" 

4670 PRESET < 223,54)s PRINT#1,"1" 

4680 PRESET(229,54)s PRINT#1,"9" 

4690 PRESET < 236,54)s PRINT#1,"8" 

4700 PRESET < 242,54):PRINT#1,"6" 

4710 COLOR 10 

4720 PRESET<216,64)!PRINT#1,"MSX" 
4730 PRESET<217,64)!PRINT#1 "MSX" 
4740 PRESET(212,73):PRINT#1,"BIDS" 
4750 PSET(213,73):PRINT#1,"GIDS" 

4760 LINE(201,86)-<255,97),13,BF 

4770 LINE < 208,88 >-< 255,95),1,BF 

4780 GOSUB 4300s BEEP 

4790 SOUND 7,254!SOUND 8,16 

4800 SOUND 0,10!SOUND 1,0 

4810 SOUND 13,9!SOUND 11,90!SOUND 12 

4820 PRESET < 209,151):PRINT#1,"SCORE" 
4830 PSET<210,151)!PRINT#1,"SCORE" 
4840 LINE <209,165)-<247,175),1,BF 
4850 COl 0R15 

4B60 PRESET < 209,165)!PRINT#1,USING"# 
####";SC 
4870 RETURN 
4880 ’ 

4890 ’GRAS 

4900 LINE <X,Y)-<X+7,Y+7),1,BF 
4910 C0L0R2 

4920 SOUND 13,9iSOUND 0,Y:SOUND1,0 
4930 PSET<X,Y)!PSET<X+7,Y) 

4940 PSET<X,Y+7)iPSET<X+7,Y+7) 

4950 LINE(X+2,Y+3)-<X+5,Y+3) 

4960 RETURN 
4970 ’ 

4980 * ZWART 

4990 LINE(X,Y)-<X+7,Y+7),1,BF 
5000 RETURN 
5010 ’ 

5020 * ROTSEN 

5030 LINE(X,Y>-(X+7,Y+7),1,BF 
5040 COLOR 14 

5050 SOUND 13,9*. SOUND 12,2 
5060 SOUND 0,X+50!SOUND1,1 
5070 LINE(X,Y)-(X,Y+1) 

5080 PSET(X + l,Y+2) 

5090 LINE(X,Y+5)-<X+5,Y) 

5100 LINE <X+6,Y+l)-<X+7,Y+3) 

5110 LINE(X+5,Y+4)-<X+5,Y+5) 

5120 PSET(X+4iY+6)!PSET<X+6,Y+6) 

5130 PSET <X+3,Y+7):PSET <X+7,Y+7) 

5140 RETURN 
5150 ’ 

5160 * MUUR 

5170 LINE(X,Y)-<X+7,Y+7),1,BF 
5180 COLOR 6 

5190 SOUND 13,9:SOUND 12,5sSOUND 1,9 



5200 LINE(X,Y)-(X+7,Y+7) , , B 
5210 LINE(X,Y+3)-(X+7,Y+4),,B 
5220 RETURN 
5230 ’ 

5240 "WATER 

5250 LINE <X,Y)-(X+7,Y+7),1,BF 
5260 C0L0R4 

5270 SOUND 13,9iSOUND 12,2iSOUND 0,X 
5280 PSET <X,Y> 

5290 LINE<X+1,Y+2)-<X+3,Y+2) 

5300 LINE(X+5,Y+2)-<X+6;Y+2) 

5310 LINE <X+3,Y+l)-(X+4,Y+l) 

5320 PSET(X,Y+5)!PSET(X+7,Y+5) 

5330 LINE(X+l,Y+6)-(X+2,Y+6) 

5340 LINE <X+3,Y+5)-(X+4,Y+5) 

5350 LINE<X+5,Y+6)~(X+6,Y+6) 

5360 RETURN 
5370 ’ 

5380 •BOSJES 

5390 LINE(X,Y)-<X+7,Y+7),1,BF 
5400 COLOR 12 

5410 SOUND 13,9!SOUND 12,2 
5420 SOUND 1,2!SOUND 0,X‘ 

5430 PSET(X,Y)!PSET<X+7,Y) 

5440 PSET<X,Y+7)!PSET<X+7,Y+7) 

5450 CIRCLE<X+3,Y+3),3 
5460 PAINT(X+3,Y+3) ' 

5470 RETURN 
5480 * 

5490 5 KRUISJE 

5500 LINE < X,Y)-(X+7,Y+7),1,BF 

5510 COLOR 15 

5520 SOUND 12,l!SOUND 1,0 

5530 FOR J=1 TO X 

5540 SOUND 13,9!SOUND 0,JïNEXT 

5550 PSET<X,Y)!PSET(X+7,Y) 

5560 PSET(X,Y+7)!PSET<X+7,Y+7) 

5570 LINE(X+3,Y)-(X+4,Y+7),,B 
5580 LINE<X+1,Y+2)-<X+6,Y+3),,B 
5590 RETURN 
5600 ’ 

5610 * LAMP 

5620 LINE<X,Y)-<X+7,Y+7),1,BF 
5630 COLOR 10 

5640 PSET < X,Y)iPRINT#1,"♦" 

5650 COLOR10!PSET <X,Y> 

5660 PSET < X+7,Y)iPSET < X,Y+7)iPSET < X+ 
7,Y+7) 

5670 RETURN 
5680 - 

5690 ’SPRITE DATA 

5700 DATA 24,24,255,189,24,24,36,102 
5710 DATA 126,255,187,153,255,36,36, 
231 

5720 DATA 60,126,219,126,60,36,36,23 
5730 DATA 24,60,90,255,255,36,36,102 
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2150 - 

8 

2160 - 

238 

2170 - 

173 

2180 - 

222 

2190 - 

64 

2200 - 

54 

2210 - 

165 

2220 - 

222 

2230 - 

64 

2240 - 

190 

2250 - 

21 

2260 - 

1 

2270 - 

218 

2280 - 

1 

2290 - 

220 

2300 - 

64 

2310 - 

70 

2320 - 

141 

2330 - 

1 

2340 - 

64 

2350 - 

133 

2360 - 

221 

2370 - 

72 

2380 - 

49 

2390 - 

52 

2400 - 

202 

2410 - 

9 

2420 - 

71 

2430 - 

126 

2440 - 

220 

2450 - 

142 

2460 - 

58 

2470 - 

58 

2480 - 

91 

2490 - 

186 

2500 - 

232 

2510 - 

107 

2520 - 

7 

2530 - 

168 

2540 - 

232 

2550 - 

121 

2560 - 

21 

2570 - 

126 

2580 - 

29 

2590 - 

11 

2600 - 

118 

2610 - 

172 

2620 - 

14 

2630 - 

125 

2640 - 

11 

2650 - 

132 

2660 - 

186 
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Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regei 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


2670 - 14 
2680 - 29 
2690 - 252 
2700 - 64 
2710 - 14 
2720 - 29 
2730 - 88 
2740 - 6 
2750 - 181 
2760 - 108 
2770 - 222 
2780 - 221 
2790 - 81 
2800 - 92 
2810 - 106 
2820 - 93 
2830 - 90 
2840 - 6 
2850 - 29 
2860 - 238 
2870 - 16B 
2880 - 175 
2890 - 53 
2900 - 157 
2910 - 173 
2920 - 37 
2930 - 72 
2940 - 49 
2950 - 52 
2960 - 252 
2970 - 9 
2980 - 115 
2990 - 148 
3000 - 218 
3010 - 142 
3020 - 58 
3030 - 58 
3040 - 31 
3050 - 40 
3060 - 44 
3070 - 52 
3080 - 200 
3090 - 9 
3100 - 71 


Regel: 3110 - 126 
Regel: 3120 - 220 
Regel: 3130 - 142 
Regel: 3140 - 58 
Regel: 3150 - 5B 
Regel: 3160 - 75 
Regel: 3170 - 51 
Regel: 31B0 - 75 
Regel: 3190 - 51 
Regel: 3200 - 77 
Regel: 3210 - BB 
Regel: 3220 - 77 
Regel: 3230 - 88 
Regel: 3240 - 79 
Regel: 3250 - 194 
Regel: 3260 - 78 
Regel: 3270 - 194 
Regel: 3280 - 142 
Regel: 3290 - 5B 
Regel: 3300 - 58 
Regel: 3310 - 58 
Regel: 3320 - 171 
Regel: 3330 - 58 
Regel: 3340 - 234 
Regel: 3350 - 131 
Regel: 3360 - 20 
Regel: 3370 - 20 
Regel: 3380 - 191 
Regel: 3390 - 200 
Regel: 3400 - 181 
Regel: 3410 - 125 
Regel: 3420 - 133 
Regel: 3430 - 151 
Regel: 3440 - 17 
Regel: 3450 - 58 
Regel: 3460 - 58 
Regel: 3470 - 192 
Regel: 3480 - 52 
Regel: 3490 - 63 
Regel: 3500 - 20 
Regel: 3510 - 6 
Regel: 3520 - 55 
Regel: 3530 - 60 
Regel: 3540 - 181 
Regel: 3550 - 151 
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Regel 
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3560 - 157 
3570 - 182 
3580 - 182 
3590 - 5B 
3600 - 58 
3610 - 90 
3620 - 247 
3630 - 6 
3640 - 125 
3650 - 131 
3660 - 97 
3670 - 58 
3680 - 58 
3690 - 90 
3700 - 247 
3710 - 6 
3720 - 254 
3730 - 131 
3740 - 90 
3750 - 130 
3760 - 131 
3770 - 244 
37B0 - 240 
3790 - 241 
3BOO - 12 
3810 - 246 
3820 - 28 
3830 - 165 
3840 - 171 
3850 - 93 
3860 - 188 
3870 - 131 
38B0 - 29 
3890 - 132 
3900 - 91 
3910 - 58 
3920 - 199 
3930 - 131 
3940 - 42 
3950 - 211 
3960 - 140 
3970 - 26 
3980 - 140 
3990 - 80 
4000 - 162 
4010 - 155 
4020 - 233 
4030 - 229 
4040 - 1 
4050 - 80 
4060 - 19e 
4070 - 102 
4080 - 131 
4090 - 207 
4100 - 7 
4110 - 88 
4120 - 151 
4130 - 203 
4140 - 2 
4150 - 253 
4160 - 58 
4170 - 58 
4180 - 90 
4190 - 208 
4200 - 16 
4210 - 31 
4220 - 71 
4230 - 35 
4240 - 53 
4250 - 18 
4260 - 64 
4270 - 142 
4280 - 58 
4290 - 58 
4300 - 125 
4310 - 219 
4320 - 237 
4330 - 180 
4340 - 190 
4350 - 200 
4360 - 210 
4370 - 142 
4380 - 58 
4390 - 58 
4400 - 58 
4410 - 58 
4420 - 60 
4430 - 115 
4440 - 79 
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4450 - 78 
4460 - 168 
4470 - 47 
4480 - 24 
4490 - 200 
4500 - 12 
4510 - 173 
4520 - 249 
4530 - 241 
4540 - 137 
4550 - 138 
4560 - 202 
4570 - 203 
4580 - 44 
4590 - 45 
4600 - 26 
4610 - 27 
4620 - 211 
4630 - 212 
4640 - 251 
4650 - 58 
4660 - 6 
4670 - 20 
4680 - 34 
4690 - 40 
4700 - 44 
4710 - 246 
4720 - 222 
4730 - 223 
4740 - 18 
4750 - 18 
4760 - 82 
4770 - 79 
4780 - 145 
4790 - 183 
4800 - 167 
4810 - 138 
4820 - 178 
4830 - 178 
4840 - 229 
4850 - 219 
4860 - 168 
4870 - 142 
4880 - 58 
4890 - 58 
4900 - 1 
4910 - 208 
4920 - 71 
4930 - 35 
4940 - 53 
4950 - 18 
4960 - 142 
4970 - 58 
4980 - 58 
4990 - 1 
5000 - 142 
5010 - 58 
5020 - 58 
5030 - 1 
5040 - 250 
5050 - 190 
5060 - 249 
5070 - 0 
5080 - 247 
5090 - 11 
5100 - 22 
5110 - 24 
5120 - 56 
5130 - 58 
5140 - 142 
5150 - 58 
5160 - 58 
5170 - 1 
5180 - 244 
5190 - 55 
5200 - 169 
5210 - 171 
5220 - 142 
5230 - 58 
5240 - 58 
5250 - 1 
5260 - 210 
5270 - 113 
5280 - 240 
5290 - 13 
5300 - 20 
5310 - 14 
5320 - 49 
5330 - 20 


Regel; 5340 - 22 
Regel; 5350 - 28 
Regel: 5360 - 142 
Regel: 5370 - 58 
Regel: 5380 - 58 
Regel: 5390 - 1 
Regel: 5400 - 248 
Regel: 5410 - 190 
Regel: 5420 - 232 
Regel: 5430 - 35 
Regel: 5440 - 53 
Regel: 5450 - 52 
Regel: 5460 - 247 
Regel: 5470 - 142 
Regel: 5480 - 58 
Regel: 5490 - 58 
Regel: 5500 - 1 
Regel: 5510 - 251 
Regel: 5520 - 170 
Regel: 5530 - 94 
Regel: 5540 - 168 
Regel: 5550 - 35 
Regel: 5560 - 53 
Regel: 5570 - 171 
Regel: 5580 - 171 
Regel: 5590 - 142 
Regel: 5600 - 58 
Regel: 5610 - 5B 
Regel: 5620 - 1 
Regel: 5630 - 246 
Regel: 5640 - 176 
Regel: 5650 - 32 
Regel: 5660 - 104 
Regel: 5670 - 142 
Regel: 5680 - 58 
Regel: 5690 - 58 
Regel: 5700 - 170 
Regel: 5710 - 74 
Regel: 5720 - 218 
Regel: 5730 - 170 
Totaal: 63688 



DISKETTES 

De programma's uit de MSX Gids zijn ook op 
diskette leverbaar. 


Er zijn alleen 80-track diskettes ver¬ 
krijgbaar; formaat 3.5 en 5.25. 40-track 
is niet leverbaar! 


Diskette nr. 1 bevat de belangrijkste 

programma's van MSX-Gids 1 t/m 3. Een ver- 
zameldiskette dus. 

Diskette nr. 4 bevat alle programma's uit 
de MSX GIDS nr.4, diskete nr. 5 uit MSX 
Gids nr. 5 enz. enz. 

De diskettes starten automatisch op en 
zijn geheel raenu-gestuurd met diverse 
keuze mogelijkheden en schermen. Alles in 
hi-res graphics. D.m.v een letter-keuze- 
menu kunnen de programma's geladen of op¬ 
gestart worden. 

Het menu bevat ook een overzichts 
programma, dat geschikt is voor twee 
drives en verder zijn er nog enige infor¬ 
matie- en advertentiepagina's op de dis¬ 
kette aanwezig. 

De 3.5 diskettes kosten Fl. 25,00 p.st. en 
de 5.25 versie kost Fl. 17,50. 

Deze. prijs is incl. verzendkosten (in 
speciale diskette verpakking). 

Bestellen door overmaking op giro 909515 
t.n.v. A.Debels te Amsterdam. 

Voor Belgie is de prijs BFr. 470 voor de 
3.5 versie en BFr. 280 voor de 5.25 
versie, en betalingen kunnen geschieden 
op rek.nr. 235 0430464—87 bij de Generale 
Bankmij. te Hasselt t.n.v. J.Herps, 
postbus 10252, 1001 EF Amsterdam. 

***** Vergeet niet het nummer van de 
diskette te vermelden!!! 

***** NOGMAALS: ALLEEN 80 TRACK DISKETTES 

***** Inl. Tel. 020-320807 

(tussen 12.00 uur en 20.00 uur) 


DISKETTES 
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THE ATTACK OF THE 
MISERABLE AL I BITS 

Zoals de titel al aangeeft is dit een 
spel met een buitenaardse reukje. 

Ditmaal bent u de kanonnier van de 
planeet Copernicus VI. Voor diegene die 
nog nooit van deze planeet gehoord 
heeft, het is een zuster-planeet van 
Copernicus V, 

De bedoeling van het spel is uw planeet 
te verlossen van de MISERABLE ALIENS. 

De vloot van de MISERABLE ALIENS is 20 
moederschepen plus ontelbaar veel 
vrachtschepen groot. 

Nu zijn deze moederschepen nogal laf. 

Zij laten namelijk de vrachtschepen (die 
veel zwakker maar talrijker zijn) 
voorgaan. 

De vloot vrachtschepen groeit konstant 
aan en komt stilaan naar beneden, 

Als een van die vrachtschepen er in 
slaagt in de bergen te landen is uw 
planeet overwonnen. 

Dit is dan ook het eerste dat men moet 
vermijden. 

Het hoofddoel is echter wel het 
vernietigen van de 20 moederschepen. Het 
moederschip schiet konstant bommetjes 
af. Zodat men het best voordurend in 
beweging blijft. Indien men dit niet 
doet is de kans zeer groot dat een van 
deze bommetjes uw kanon raakt. Nadat dit 
zo om en bij de drie keer gebeurt is 
komt men dan plotseling tot de 
ontdekking dat men over geen enkel kanon 
meer beschikt. Zodoende is het spel dan 
ook afgelopen en verliest men 75 punten. 
De munitie is onbeperkt. Zodat men zich 
daar geen zorgen om moet maken. 

Ook de moederschepen beschikken over een 
onbeperkt aantal bommetjes. 

Elke maal dat u een moederschip hebt 
weten te treffen krijgt men een bonus 
van 50 punten. Nadat deze bonus bij uw 
score is opgetelt komt er een nieuw 
moederschip en een nieuwe en grotere 
vloot vrachtschepen. De snelheid waarmee 
de vrachtschepen verschuiven wordt ook 
groter. 

Om het spel te spelen is er keuze uit 
het toetsenbord of een joystick in poort 
1 . 

Dit voor wat het spel betreft. 

HET PROGRAMMA. 

Het programma is een kombinatie van 

BASIC en M. taal. Ook wel eens een 
hybride genoemd. 

Het tekenen van het scherm wordt met de 
gewone BASIC instrukties gedaan. Behalve 
het kleurgeheugen. Dit wordt gedaan in 
MACHINE TAAL omdat dit anders zeer veel 


tijd vergt. 

Ook het beginscherm en het keuzescherm 
zijn in BASIC geschreven. 

Enkel de hoofdlus is voor een groot deel 
in MACHINE TAAL geschreven. Zodat dit 
spel een redelijke snelheid heeft. Dit 
is bij dit soort spelen wel 
noodzakelijk. 

Het verschuiven en aangroeien van de 
vloot vrachtschepen wordt ook gedaan in 
MACHINE TAAL. Het aanroepen gebeurt door 
middel van de instruktie ON INTERVAL=T 
GOSUB. Elke maal men een moederschip 
geraakt heeft wordt de waarde T 
vermindert. Zodat het verschuiven en 
aangroeien van de vloot steeds rapper na 
elkaar gebeurt. 

In het programma is ook een soort 
chexsum ingebouwd die test als de 
MACHINE TAAL data’s goed ingetikt zijn. 
Dit geeft echter geen volledige 
garantie, doch zal in veel gevallen wel 
volstaan. 

Ik wens je veel sukses met de 
verdediging van Copernicus VI en tot een 
volgende keer. 

Martin Buysse. 

Beeldscherm! WIDTH 36 




20 ”* THE ATTACK OF THE * 
30 ’* MISERABLE ALIENS * 
40 ’ # $ 
50 * % Martin Buysse * 
60 '* St Sebastiaanstr 5 % 
70 ’* 9968 Bassevelde * 
80 ’* BELGIE * 


90 * 

95 FOR 1=1 TO3000:NEXTI 

96 FOR I=&HFD9A TO &HFFCA STEPS! POKE 
1,201:NEXT:CLEAR200,&HF3B0 

100 S0UND6,255:S0UND7,7 
110 SOUNDS,18:SOUND11;158 
120 SOUND12,60 
130 COLOR 4,1,1:SCREEN2 
140 OPEN"GRP:" AS #1 
150 F0RI=1T0B STEP 2 

160 LINE (14+1,10+1)-(225-1,70-1),4, 
B 

170 NEXT:COLOR 11 

180 PRESET(50,30):PRINT#1,"THE ATTAC 
K OF THE" 

190 PRESET <54,42):PRINT#1,"MISERABLE 

ALIENS" 

200 PRESET(10,140):PRINT#1,"Geschrev 
en door:" 

210 PRESET<20,160):PRINT#1,"Martin B 
uysse" 

220 PRESET(110,180):PRINT#1,"(c) 198 

6 MSX-gids" 

230 RESTORE 1850: FOR I=S<HF286T0&HF37F 
: READ A*: POKEI, VAL ( "S<H ,, +A$) : CO=CO+VA 
L("&H"+A$):NEXT 
240 REM 

250 REM Keuze menu 
260 REM 

270 SCREEN0: COLOR 15,4,7:WIDTH 40:KE 
Y OFF: POKE?<HFCAB, 255 
280 LOCATE 1,2:PRINT"THE ATTACK OF T 
HE MISERABLE ALIENS" 





290 LOCATE 5,5sPRINT"Speelt u met ee 
n joystick {j/n>?" 

300 I*=INKEY$: IF I$="J"THEN PDKE 8<HF 
351,1:GOTO 320 
310 IF I$=""THEN300 ELSE340 
320 L0CATE5, 10;PRINT"Schietknop 1 o-f 
2 <l/2>?" 

330 I*=INKEY*:IF I$="l" THEN POKE&HF 
2E8,1 ELSE IF I$="2" THEN P0KES<HF2E8 
,3:ELSE 330 

340 IF C0<>22726 THEN L0CATE5,15:PRI 
NT"U hebt een -fout gemaakt bij het 
intikken van de data's":END 
350 COLDR 15,1,1:BCREEN2 
360 REM 

370 REM Scherm tekenen + M.taal star 
t adressen zetten 
380 REM 

390 DEF U5R0=S<HF350: ’ KANON BESTURING 

400 DEF USR1=8<HF32B: “BOM 

410 DEF USR2=8<HF2E0: * RAKET 

420 DEF USR3=S<HF2AF: * VERSCHUIVEN 

430 DEF USR4=S<HF299: 'KLEUR GEHEUGEN 

ZETTEN 

440 DEF USR5=&HF286:’HOOFD ROUTINE 

450 L=3:V=1:T=300:D=760 

460 FOR I=256T0D STEP 8 

470 VPOKEI,0 

480 VPOKEI +1, ?<H8 

490 VPOKE1+2,&H3E 

500 VPOKE I +3,8<H7F 

510 VPOKE1+4,&H6B 

520 VPOKE I +5, &H3E 

530 VPOKEI+6,&H0 

540 VPOKE1+7,0 

550 NEXT 

560 DUMY=USR4 < 0) 

570 LINE(255,191)-<0,180),2,BF 
580 LINE<255,179)-(0,179)- 14 
590 DRAW" bm0, 156" 

600 DRAW"e6 cl4 f10 r3 -f20 r3 el3 u2 
el0 r5 ul f7 rl e4 f7 rl f6 r4 f10" 
610 PAINT <5,170),14 
620 PAINT(65,170),14 
630 LINE(189j179)—(189,131),4 
640 LINE <191,179)—(191j131),4 
650 PSET<190,130),4 
660 PSET(190,179),4 
670 PAINT<190,131),4 
680 LINE <240,179) — (240,131),4 
690 LINE(242,179)~(242,131),4 
700 PSET(241,130),4 
710 PSET(241,179);4 
720 PAINT(241,131),4 
730 LINE(192,133)-(239,163),6,BF 
740 COLOR 11:PSET(195,i36),6:PRINT#1 
,"score" 

750 LINE(237,155)-(197,146),6,BF:PRI 
NT#1,SC 

760 DRAW"BM85,175" 

770 DRAW"cl4 e4 r7 gl r2 e6 r5 el0 r 
2 e2 rl d3 e2 f4 d2 e3 f9 d3 f9" 

780 PAINT(120,175),14 
790 DRAW "bml6,160" 

800 DRAW "cl g4 12 g3 dl g4 14" 

810 DRAW"bml07,165" 

820 DRAW" cl f3 d2 f2 r3 f3 rl f4" 

830 DRAW"bm129,160" 

840 DRAW" cl 11 g3 dl g2 12 gl 11 g4 
850 DRAW"bm79,160" 

860 DRAW"cl 11 g3 12 dl g4 11 dl gl 
g5 dl g4" 

870 DRAW"bm56,167" 

880 DRAW'cl rl f2 r2 dl f2 r2 " 

890 VPOKE3066,0 
900 REM 


910 REM sprite’s vormen + sprite dat 
a's 


REM 

RESTORE 970:FORI=0TO6:A$="" 
FORJ=0TO7:READ A 
A$=A*+CHR*(A):NEXT 
SPRITE$(I)=A$:NEXT 
DATA 24,24,24,24,90,126,90,0 
DATA 20,8,8,8,8,0,0,0 
DATA 00,66,195,231,255,102,60,24 
DATA 8,8,8,8,20,0,0,0 
DATA 0,0,20,40,20,40,0,0 
DATA 0,20,42,68,34,84,40,0 
DATA 20,42,65,130,65,130,84,40 
FORI=255TO100 STEP-l' 


920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 

1110 ON INTERVALST GOSUB'1240:INTERV 
AL ON 
1120 ON 
1130 
1140 
1150 
1160 
USR2(0) 

1170 IF V=1THEN IF VPEEK(&H1B09)>VPE 
EK (8<H 1B01) THEN VPOKE&H 1B09, VPEEK (8<H 1 
B09) -2 ELSE IF VPEEK <&H 1B09) < VPEEK (8< 
H1B01)THEN VPOKEfeH1B09,VPEEK(&H1B09) 
+2 


PUT SPRITE0, (I,182),15. 
FORJ = 1TO10:NEXTJ,I 
FORI=255T0100 STÈP -1 
PUT SPRITE2,(1,0),15,2 
FORJ=1TO10:NEXTJ,I 
PUT SPRITE1,(100,8),15. 


,0 


1 


SPRITE GOSUB 1290:SPRITE ON 

REM 

REM Hoof dl lis 
REM 

DUMY=USR5(0):DUMY=USR2(0) : DUMY= 


1180 DUMY=USR2(0) 

1190 IFPOINT(VPEEK(&H1B0D)+3,VPEEK < & 
H1B0C)+3 > =15 THENPAI NT < VPEEK < 8<H 1B0D) 
+3,VPEEK < &H1B0C)+3),1:P0KE&HF32A,1:Y 
=VPEEK(&H1B0C)-3:VPOKE&H1B0C,207:X=V 
PEEK(&H1B0D):SC=SC+1:LINE(237,155)-( 
197,146),6,BF:PRINT#1,SC:SOUND13,9:G 
OSUB1560 ’ 

1200 DUMY=USR1(0):GOTO1160 
1210 REM 

1220 REM On interval subroutine 
1230 REM 

1240 DUMY=USR3(0):IF VPEEK(3066)<>0T 
HEN Q=VPEEK(3066):GOTO 1630 
1250 RETURN 
1260 REM 

1270 REM On sprite subroutine 
1280 REM 


1290 SPRITE OFF:SOUND13,9 
1300 IF VPEEK(&H1B04)=>178 THEN 1310 
ELSE 1410 

1310 L=L.-1:IF L=0THEN 1630 
1320 Y=VPEEK (8<H 1B00 > : X=VPEEK (&H1B01) 
1330 VPOKE&H 1B04,191: VPOKES<H 1B00, 207 
:0=VPEEK(&H1B08) 

1340 VPOKE&H1B08,207:GOSUB1560 
1350 INTERVAL OFF 

1360 PSET (2,125),1:PRINT#1,"U werd 
ger aakt. " 

1370 IF LMTHEN PSET (2, 141) , 1: PRINT 
#1,"U hebt nog"sL;"kanonnen":G0T0139 
0 

1380 PSET (2,141),1:PRINT#1,"U hebt 
nog";L:"kanon" 

1390 FÖRI=1TO2000:NEXT:LINE(0,125)-( 
180,149),1,BF 

1400 FOR 1=255 TO VPEEK (8<H1B09) STEP- 
1:PUT SPRITE0, (I,182),15,0:F0RJ=1T01 
0:NEXT:NEXT:INTERVAL ÓN:VPOKE&H1B08, 
O:RETURN 


1410 IF VPEEK(&H1B0C)=<7 THEN 1420 E 
LSE GOTO 1550 


ii 




1420 INTERVAL OFFsPOKE &HF298,1:V=0: 
VPOKE8<H1B0B, 207: Y=VPEEK < &H1B0C) -3: X« 
VPEEK(&H1B09) 

1430 VPOKE&H1B0C,207:GOSUB1560:T=T-1 
3:INTERVAL OFF: LINE<0,0)-<255,129),1 
BF 

1440 P0KE&HF32A, 1: VPOKE&H1B0C, 207: VP 
OKE&HlB00,207:VPOKEScH1B04,191 
1450 PRESET(0,10):PRINT#1,"U verniet 
igde zojuist" 

1460 PRESET(0,20):PRINT#1,"het vijan 
dige moederschip!" 

1470 PRESET(0,30):PRINT#1,"Als bel on 
ing krijgt u een bonus." 

1480 FORI=1TO50:BEEP:LINE(237,155)-( 
197,146),6,BF 

1490 SOSC+ 1: PR I NT# i , SC 5 FOR J = 1TO20: N 
EXT:NEXT 

1500 E=E+1:IF E=20 THEN 1630 
1510 S0UND6,255: SOIJND7,7 
1520 SOUNDS, 18: SOUND 11', 158 
1530 SOUND12,60 

1540 FORI=1TÖ500:NEXT:CLS:COLOR 15,1 
,1:V=1:D=D+128:P0KE&HF29B,0:GOTO460 
1550 P0KE&HF32A, 1: Y= (VPEEK (8<H1B04) + V 
PEEK(&H1B0C) )/2: X=VPEEK(StHlB05) : VPOK 
E&H 1B04, &HBF: VPOKE&H 1B0C, 207 
1560 PUT SPRITE 4,(X,Y),15:F0RI=1T01 
5: NEXT: PUT SPRITE 5,'< X, Y) , 15: PUT SPR 
ITE 4,(0,207):FORI=1TO10:NEXT 
1570 PUT'SPRITE 6,(X,Y),15::PUT SPRI 
TE 5,(0,207):FORI=1TO10:NEXT:PUT SPR 
ITE 5,(X,Y),9: 

1580 PUT'SPRITE 6,(0,207):FORI=1TO10 
:NEXT:PUT SPRITE 4,<X,Y),6:PUT SPRIT 
E 5,(0,207):F0RI-1T015:NEXT:PUT SPRI 
TE 4,(0,207) 

1590'SPRITE ON:RETURN 
1600 REM 
1610 REM Einde 
1620 REM 

1630 INTERVAL OFF:COLOR 15,4,7:SCREE 
N0:WIDTH40:KEY DFF:POKE&HFCAB,255 
1640 IF Q=0THEN 1670 

1650 L0CATE5, 5:PRINT"De vrachtschepe 
n z ; in gel and" 

1660 L0CATE5,10:PRINT"Uw score wordt 
als stra-f vermindert met 10 

0 p;. ,ten":SC=SC-100: GOTO 1750 
1670 IF E< >20 THEN 1710 
1680 LOCATE 5,5:PRINT"U vernietigde 
het moederschip" 

1690 L0CATE5,6:PRINT"20 maal. U verd 
ient een bonus" 

1700 LOCATE10,7:PRINT"van 100 punten 
": SC=SC+100«.GOTO 1750 

1710 L0CATE5,5:PRINT"U hebt al uw ka 
nonnen verloren" 

1720 LOCATE10,6:PRINT"in de strijd." 
1730 LOCATE5,7:PRINT"uw score wordt 
vermindert" 

1740 LOCATE10,8:PRINT"met 75 punten. 
»:SC=9C-75 

1750 L0CATE5, 12:PRINT"Uw score bedra 
agt";SC 5 "punten" 

1760 L0CATE5, 17:PRINT"Wi1t u nogmaal 
s spelen {J/NV 

1770 I$=INKEY*:IF IU>=" "THEN1770 
1780 IF I$="N"THEN END 
1790 IF I$=" J"THEN RUN:ELSE GOTO 177 
0 

1800 REM 

1810 REM MACHINE TAAL DATA’S 
1820 REM 

1830 REM Hoo-fd routine 
1840 REM 


1850 DATA 
ubroutine 
1860 DATA 
ubroutine 
1870 DATA 


1880 

1890 

1900 

1910 


DATA 

DATA 

DATA 

DATA 


ubroutine 
1920 DATA 
1930 DATA 
te die 
OM" al 
den. 


C9 
00 

aangeett 
dan niet 


CALL &HF350 s 

CALL &HF2E0 5 

LD A, (8<HF298) 
CP 00 
JR 01 
RETURN 

CALL S<HF32B s 
RETURN 

Dit is een by 
subroutine "B 
moet aangeroepen wor 


CD,50,F3:REM 
"KANNON" 

CD,E0,F2:REM 
"RAKKÈT" 

3A,98,F2:REM 
FE,00' :REM 

28,01 :REM 
C9 :REM 

CD,2B,F3:REM 
"BÓM" 


: REM 
: REM 
al s de 


1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
it is 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
it is 


REM 

REM 

REM 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

de 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

REM 

REM 

REM 

DATA 

DATA 

DATA 

DATA 

de 


KLEUREN GEHEUGEN ZETTEN 


21,00,20:REM 


3E, F1 
06,30 

06,80 

F5 

CD,4D, 


: REM 
: REM 
: REM 
: REM 
: REM 
00:REM 


LD HL,&H2000 
LD A, 8<HF 1 
LD B, ?<H30 
PUSH BC 
LD B, !<H80 
PUSH'AF 
CALL &H004D D 


subroutine "WRTVRM" 


23 

F1 

10, F8 
Cl 

10,F2 
C9 


: REM 
: REM 
: REM 
: REM 
: REM 
: REM 


VERSCH4IVEN 

21,00,01:REM 
01,FB,08:REM 
H,00,D8:REM 
CD,59,00:REM 


INC HL 
POP AF 
DJNZ &HF8 
POP BC 
DJNZ &HF2 
RETURN 


LD HL,&H0100 
LD BC,&H08F8 
LD DE, &HD800 
CALL &H0059 D 


subroutine "LDIRMV" 


2170 DATA 21,00, D8: REM LD HL,S<HDB00 
2180 DATA 01,FB, 08: REM LD BC,8<H08F8 
2190 DATA 11,08,01: REM LD DE,8<H0108 
2200 DATA CD,5C,00:REM CALL &H005C D 
it is de subroutine "LDIRVM" 

2210 DATA 21,00,01: REM LD HL,S<H0100 
11,D8,F2:REM ~ 

06,08 :REM 

IA :REM 

CD,4D,00:REM 


2220 
2230 
2240 
2250 
it is 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
it is 
2460 
2470 
2480 
2490 
2500 


DATA 
DATA 
DATA 
DATA 
de 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 
REM RAKET 
REM 


LD DE,&HF2D8 
LD B,08 
LD A,(DE) 

CALL &H004D D 


subroutine "WRTVRM" 

23 

:REM INC HL 

13 

:REM INC DE 

10, F8 

: REM DJNZ 8<HF8 

i C9 

:REM RETURN 

i 00:REM 

Dit zijn de 

; 08:REM 

data’s 

i 3E:REM 
i 7F:REM 

van het 

i 6B:REM 

bitpatroon 

i 3E:REM 

van de 

, 00:REM 
i 00:REM 

vrachtschepen 


DATA 
DATA 
DATA 
DATA 
DATA 

de subroutine "GTTRIG" 


3A,2A,F3:REM 
FE,00 :REM 
28,24 :REM 
3E,00 :REM 
CD,D8,00:REM 


A,(&HF32A) 
00 

Z, 8<H24 


LD 
CP 
JR 
LD A,00 
CALL &H00D8 


DATA FE,FF :REM 
DATA 28,01 :REM 
DATA C9 :REM 
DATA 3E,00 :REM 
DATA 32,2A,F3:REM 


CP 8<HFF 
JR Z,01 
RETURN 
LD A,00 
LD (&HF32A) 
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2510 DATA 21,01,1B 
2520 DATA CD,4A,00 


it is de subroutine "RDVRM" 


2530 DATA 21,0D,1B 
2540 DATA CD,4D,00 


it is de subroutine "WRTVRM" 


2550 DATA 3E,AE 
2560 DATA 21,0C,1B 
2570 DATA CD,4D,00 


it is de subroutine "WRTVRM" 
2580 DATA C9 
2590 DATA 21,0C,1B 

2600 DATA CD,4A,00_ _ 

it is de subroutine "RDVRM" 


2610 DATA FE, 00 
2620 DATA 28,07 
2630 DATA 3D 
2640 DATA 3D 
2650 DATA 00 
2660 DATA CD,4D,00 
it is de subroutine 
2670 DATA C9 
2680 DATA 3E,01 
2690 DATA 32,2A,F3 
2700 DATA 21,0C,1B 
2710 DATA 3E,CF 
2720 DATA CD,4D,00 


it is de subroutine "WRTVRM" 


2730 DATA C9 
2740 DATA 01 


REM LD HL, S<H 1B01 
REM CAL.L. &H004A D 


REM LD HL, ?<H1B0D 
REM CALL 8<H004D D 


REM LD A, 8<HAE 
REM LD HL, &H1 B0C 
REM CALL 8<H004D D 


REM RETURN 

REM LD HL, ?<H 1 B0C 

REM CALL 8<H004A D 


REM CR 00 
REM JR Z,8<H07 
REM DEC A 
REM DEC A 
REM NOP 

REM CALL 8<H004D D 
WRTVRM" 

REM RETURN 
REM LD A,01 
REM LD (8<HF32A> , A 
REM LD HL, 8<H 1 B0C 
REM LD A, 8<HCF 
REM CALL &H004D D 


REM RETURN 

REM Dit. is een by 


te die aangee-ft. als de raket al dan 

niet onderweg is 

2750 REM 

2760 REM BOM 

2770 REM 

2780 DATA 21,04,18: REM LD HL, 8<H1B04 
2790 DATA CD, 4A, 00: REM CALL ?<H004A D 
it is de subroutine "RDVRM" 


2800 DATA FE,BF 
2810 DATA 28,09 
2820 DATA 3C' 
2830 DATA 3C 
2840 DATA 3C 
2850 DATA 00 
2860 DATA 00 


IREM CR &HBE 
: REM JR Z , 8<H09 
:REM INC A 
:REM INC A 
:REM INC A 
:REM NOP 
iREM NOP 


2870 DATA CD, 4D, 00: REM CALL 8<H004D D 
it is de subroutine "WRTVRM" 

2880 DATA C9 :REM RETURN 

2890 DATA 3E,0B :REM LD A,08 

2900 DATA CD, 4D, 00! REM CALL'8<H004D D 
it is de subroutine "WRTVRM" 

2910 DATA 21,09,16: REM LD HL,8<H1B09 
2920 DATA CD, 4A, 00: REM CALL 8<H004A D 
it is de subroutine "RDVRM" 

2930 DATA 21,05,16: REM LD HL,8<H1B05 
2940 DATA CD, 4D, 00: REM CALL 8<H004D D 
it is de subroutine "WRTVRM" 

2950 DATA C9 :REM RETURN 

2960 REM 

2970 REM KANON 

2980 REM 

2990 DATA 3E,00 :REM LD A,00 

3000 DATA CD, D5,00: REM CALL 8<H005D D 
it is de subroutine "GTSTCK" 

3010 DATA FE, 03 : REM CP 8<H03 

3020 DATA CC, 60, F3: REM JP Z , &HF360 s 
ubroutine "KANARE" 

3030 DATA FE, 07 : REM CP 8<H07 

3040 DATA CC, 70, F3: REM JP Z,8<HF370 s 
ubroutine "KANALI" 

3050 DATA C9 :REM RETURN 

3060 REM 

3070 REM Kanon naar rechts "KANARE" 
3080 REM 

3090 DATA 21,01,16: REM LD HL,8<H1B01 
3100 DATA CD, 4A, 00: REM CALL 8<H004A D 
it is de subroutine "RDVRM" 


3110 DATA FE,FA 
3120 DATA 28,05 
3130 DATA 3C 
3140 DATA 3C 
3150 DATA CD,4D, 
it is de subrout 
3160 DATA C9 
3170 REM 
3180 REM Kannon 
3190 REM 
3200 DATA 21,01, 
3210 DATA CD,4A, 
it is de subrout 
3220 DATA FE,00 
3230 DATA 28,02 
3240 DATA 3D' 
3250 DATA 3D 
3260 DATA CD,4D, 
it is de subrout 
3270 DATA C9 


: REM CP 8<HFA 
:REM JR Z,05 
:REM INC A 
:REM INC A 

00: REM CALL &H004D D 
ine "WRTVRM" 

:REM RETURN 

naar links "KANALI" 

1B: REM LD HL,8<H1B01 
00: REM CALL 8<H004A D 
ine "RDVRM" 

:REM CP 00 
:REM JR Z,02 
5 REM DEC A 
:REM DEC A 

00: REM CALL 8<H004D D 
ine "WRTVRM" 

:REM RETURN 
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DE COMPUTER ALS TEGENSPELER 
BIJ MASTERMIND 

Mastermind is door velen op programma 
gezet, zowel in getallenversies als in 
kleurversies (die leuker zijn). In het 
dec.-jan. nummer van de MSX-Gids was een 
voorbeeld van een kleurversie opgenomen: 
een fraai programma van Martin Buysse. Wat 
je echter niet ziet, zijn programma's 
waarin de computer als tegenspeler 
fungeert, dus mastermind-opgaven krijgt 
voorgeschoteld die hij moet oplossen. Dat 
zou het spel echter wel leuker maken. 

Ik vond het een interessante opgave om 
algoritmes te vinden waarmee de computer 
tot een dergelijk 'intelligent gedrag' te 
brengen was. Dat is gelukt, waarbij wel 
vermeld moet worden dat ik uit gegaan ben 
van een beperking in de opgaven. Die is, 
dat de 4 getallen/kleuren die door de 
computer -of de mens- geraden moeten 
worden verschillend dienen te zijn en dat 
de keuze is uit de cijfers 1 t/m 6 resp. 
uit zes kleuren. Het aantal mogelijkheden 
is dan 6 ! /(6-4)!=6*5*4*3*2/2=360. Als 
dubbelen wel mogen voorkomen is het aantal 
mogelijkheden 6666-1111+1=5556. Het spel 
wordt dan wel erg moeilijk. Wie deze 
beperking niet wil aanvaarden, zal volle¬ 
dig andere algoritmes moeten bedenken. Ik 
geef in dit stuk alleen de algoritmes. De 
lezer zelf zal die moeten inpassen in een 
programma als dat van martin Buysse. Diens 
regels 410-470 en 810-860 vragen dan wel 
om herziening, omdat hij de genoemde 
beperking niet heeft opgenomen in zijn 
programma. Dan nu de benodigde algoritmes: 

a) Het genereren van de 360 mogelijke 
reeksen. 

Dit moet aan het begin van het spel plaats 
vinden en voor de rest van de speeltijd in 
het geheugen gezet worden (DIM(360,4) of 
DIM(359,3) als men wil). Mijn algoritme 
hiervoor berust op het tellen van 1234 tot 
6543 in een zestallig stelsel, waarbij ik 
de volgorde van de getallen van rechts 
naar links laat lopen i.p.v. andersom 
zoals we gewend zijn. 

90 E==3:F=3:G-2sH-l 

100 FORM=1TO360 

110 E=E+lsIFE>6THENE=lsF=F+l 

120 IFF=7THENF=1!G=G+1 

130 IFB=6THEN6=lsH*H+l 

140 IFG=HTHENG=G+1 

150 IFF=6DRF-HTHENF=F+1 : GOTÜ120 

160 IFE=F GRE=GÜRE=HTHEN110 

170 K<M ? l)-EaK<Mp2>«FiK<M,3>«BiK(M,4 

ï-HlU*l 

180 LOCATE-,-#PRINTK(M p 1)|K(M P 2>|K(M 
,3)|K(M P 4Ï 
190 NEXT M 

De print-instructie in 180 kan natuurlijk 
weggelaten worden, maar verdient aanbeve¬ 
ling om het proces zichtbaar te maken en 
het wachten (een halve minuut) te veraan¬ 
genamen. Met de volgende regel kan wille¬ 
keurig een reeks uitgekozen worden die 
fungeert of als de eerste gissing van de 
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computer, of als de te raden reeks voor de 
menselijke speler• 

200 M=INT(360*RND(-TIME):N=1:Z=M 
210 FOR I=1T04:C(N,I)=K(M,I):NEXT I 


hebben, dan volgt de melding dat de 
tegenspeler een foute opgave heeft gedaan 
(wat vrij gemakkeljk kan gebeuren) (regel 
500). Damkzij regel 440:4 kan het 
toetsingsproces een beetje gevolgd worden. 


N is hier het nummer van de gissing; Z 
dient om het reeksnummer van de eerste 
gissing te onthouden. 

b)Het toetsen van de mogelijkheden aan de 
feed-back. 

Na het printen van zijn gissing vraagt de 
computer aan de tegenspeler hoeveel hij er 
goed had (A(N)) en hoeveel hij er op de 
goede plaats had staan (P(N)). Die feed¬ 
back wordt voor elk van de gissingen 
onthouden en alle mogelijke volgende gis¬ 
singen worden eraan getoetst. Zogauw een 
van de mogelijke gissingen in overeen¬ 
stemming is met de A"s en P's van de 
voorgaande gissingen, wordt deze kansheb¬ 
ber geprint. Dat toetsen en verwerpen/aan¬ 
vaarden gaat alsvolgt (de regelnummers 
zijn natuurlijk arbitrair): 


400 N=N+1-IFM=360THENM=0 
410 X^li+1 s IFX<ZTHEN430 
420 FORM=XTO360s1=1:GOTO 440 
430 FORM=XTDZ:T=l 

440 B=0:Q= 0 s LOCATE-,PRINT"Reeks "5 
M; " 

450 F0RI=1T04: IFK(M, I)OC<T, I) THEN47 
0 

460 Q=Q+lsIFQ>P(T)THEN500 

470 F0RK-lT04ïIFK(M,I><>C<T,K)THEN49 

0 

480 B=B+1:IFB >A < T >THEN500 

490 NEXTK,I:IFB=A(T)ANDQ=P(T)THEN530 

500 IFM=ZTHEN560 

510 IFM=360THENM=0:GOTO410 

520 NEXT M 

530 IFN=T+1THEN210 

540 T=T+1: GOTO440 

550 "EINDE CYCLUS EVT.FOUTMELDINGEN 
560 BEEP:LOCATE-,-sPRINT"U HEEFT ERG 
ENS EEN FOUT GEMAAKT" 

570 PRINT"TYPE UW REEKS IN, DAN ZAL 
IK DE FOUT" 

580 PRINT"AANWIJZEN."ïPRINT 

Het toetsen heb ik niet bij reeks i laten 
beginnen, maar bij de reeks pal na de 
eerste gissing, teneinde het spel onvoor¬ 
spelbaar voor de tegenpartij te houden; 
vandaar regel 400:2, 410-430 en 510. T is 
het rangnummer van de eerder gedane gis¬ 
singen. B correspondeert met A(T) en Q met 
P(T). Een nieuwe gissing moet allereerst 
met de eerst gedane gissing in overeen¬ 
stemming zijn (regel 490). Is hij dat, dan 
moet hij vergeleken worden met gissing 
C(2), gesteld dat die al gedaan is (terug 
naar regel 440). Enz. Heeft de verge¬ 
lijking ale eerder gedane gissingen C(l) 
t/m C(T) aangedaan', dan is de eerste de 
beste reeks die dit proces overleefd heeft 
de nieuwe gissing (met behulp van regel 
530 wordt teruggestuurd naar regel 210). 
Is een reeks eenmaal verworpen, dan wordt 
hij niet meer heroverwogen. Dus als de 
computer weer bij reeks Z belandt, zonder 
een logisch mogelijke gissing gevonden te 


c) Het opsporen van de foute opgave 
Wie niet met kleuren maar met getallen 
werkt, doet er verstandig aan om een tabel 
te laten printen waarin alle eerdere gis¬ 
singen staan, alsmede de opgegeven A(N) en 
P(N). Dan kan ook nagegaan worden waar men 
een fout in de A- en P-opgave heeft ge¬ 
maakt. De computer kan daarbij helpen met 
het volgende algoritme: 


590 INPUTC(0,1),C<0,2>,C<0,3>,C<0,4> 
600 N=1 ’ * ’ 

610 B=0:Q =0 

620 F0RI=lT04sF0RK=I+lT04 
630 IFC(N,I)=C(0,K)THEN650 
640 B=B+1 
650 NEXTK 

660 IFC(N, I)< >C <0,I)THEN680 
670 Q—Q +1 
680 NEXTI 

690 IFA(N)=BANDP(N)=QTHENN=N+ 1 s G0T06 
10 

700 BEEPsLOCATE-,“SPRINT"BIJ GISSING 
";N;"HAD INGEVULD MOETEN" 

710 PRINT"WORDEN: A=" 5 B;"EN P="}Q 


Tot slot: Als een lezer een ander 
algoritme weet voor de toetsing in B, 
welke ook reeksen met dubbelen erin 
aankan, dan zal ik dat graag vernemen op 
deze pagina's. 

P.Prudon. 
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Programma’s voor diskdrive: 


INDEX-2 


(tijdschriften en programma’s) 


Let op! Dit programma is alleen geschikt 
voor systemen met 80-track diskdrive. 

INDEX-II 

Eigenlijk zijn hier twee programma's 
gebruikt die zijn samengevoegd en samen 
dezelfde routines gebruiken. Het eerste 
programma is een tijdschriften- index, 
vergelijkbaar met het INDEX programma uit 
Gids nr.1, waarmee programma's en 
artikelen uit tijdschriften gearchiveerd 
kunnen worden. Het programma heeft een 
opslagcapaciteit van 1500 records. 
(Losgekoppeld van het tweede programma 
zouden ca. 2000 files op een diskette 
geplaatst kunnen worden). 

Het tweede programma is een archief voor 
software. Ook hier weer een opslag van 
1500 files. (Los zou dit programma enkele 
duizenden files aankunnen). 

Vrijwel niemand zal echter zoveel software 
titels in huis hebben; zelf een software¬ 
leverancier niet, dus het samenvoegen van 
beide programma's was best mogelijk. We 
hebben nu 2 -toch wel bij elkaar horende- 
programma's op 1 diskette. Samen met het 
programma is de diskette vrijwel vol. 

Er is nog wel ruimte genoeg voor b.v. een 
kopierprogramma; dat dan vanuit het eerste 
menu kan worden aangeroepen. Om het 
programma automatisch op te starten kan 
het de naam 'AUT0EXEC.BAS' krijgen of kan 
een 1-regelig programaatje -met deze naam- 
op de schijf worden gezet. Zo'n 
programmaatje ziet er dan als volgt uit: 

10 RUN”A:1NDEX-2" 


Het loskoppelen van beide programma's is, 
voor wie grote aantallen nodig heeft, zeer 
eenvoudig te verwezelijken. Ook het 
aanpassen aan eigen —specifieke— 
toepassingen is erg eenvoudig. We zullen 
zelf nog wel eens een paar van dit soort 
programma's publiceren. 

Succes. 



L ESC = TERUG NAAR MENU 


1 = INVOEREN 6E6EVENS 

2 = WIJZIGEN / ZOEKEN 

3 = LIJST BEELDSCHERM 

4 = LIJST PRINTER 

5 = EINDE 

Programma verlaten via EINDE <5> ! ! 
WELK NUMMER?: * 


De rubrieken -in het programma- kunen heel 
makkelijk zelf worden gewijzigd. De 
verschillende lengtes (van rubrieken en 
namen) kunnen ook veranderd worden maar 
dan zal er wat meer in het programma 
'gespit' moeten worden. Ik heb er zelf de 
namen ingevld, die ik voor ons eigen 
archief nodig had, maar iedereen kan dit 
naar believen wijzigen. Verder is het, bij 
dit soort programma's, belangrijk 
regelmatig een back-up kopie bj te houden! 

Het zoeken naar files, en het printen, 
gaat steeds langzamer naarmata het bestand 
volraakt. Dit zoeken gaat met de TNSTR$- 
fanktie; daardoor hoeven niet de hele 
namen ingevuld te worden als een record 
opgezocht moet worden. Ook kunnen alle 
namen, waarin b.v. het woord 'DOS' 
voorkomt geselecteerd worden. 

Uiteraard kan ook direkt -en zeer snel- 
met het recordnummer gezocht worden. 


MSX GIDS PROGRAMMA INDEX 
LIJST BEELDSCHERM 

r 


ESC = TERUG NAAR MENU 



RECORDNUMMER 11 
ONDERWERPNUMME R: 1 


DISK NR 
PR.NAAM 
SVSTEEM 
DATUM 
OPM. 


5.25 
Q-BERT 
DISK BASIC 

2 VERSIES 


DRUK een toets* 

ï 4 ] =7TvÖtuitd. , É 'ê 1 =i ADVENT üRE C 31 =DATA -BASE 
[ 7 ]=eüPD-pI« RW r S } ACUL AT IE C 6 1 =UT ILIT V 
BURBoPEL E b 1 =EDUCAT IEF E 9 3=DI VERSEN 
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ALLEEN VOOR 64 K MACHINES 
ALLEEN GESCHIKT VOOR DISKETTE 
Beeldscherm: WIDTH 73 


10 COLOR 1,10,10:SCREEN 0:WIDTH40 
20 CL.EAR 1000 : DEFINT A-Z: KEYOFF 
30 MAXFILES=1 
40 ' 

50 ’ 


60 CLS:LOCATE0,0,0 


70 PRINT" 
80 PRINT" 
90 PRINT" 
100 PRINT 
110 PRINT 


MSX INDEX II V 1.1 

Tijdschriften / programma index 
(c) 1986 MSX GIDS Amsterdam 


II 

II 

II 



120 PRINT:PRINT" 1 = TIJDSCHRIFTEN INDEX” 

130 PRINT:PRINT" 2 = PROGRAMMA INDEX" 

140 PRINT:PRINT" 3 = EINDE PROGRAMMA" 

150 LOCATE 2,22: F'RINT"WELK NUMMER?: " ; 

160 GOSUB 2350 

170 X=VAL(X$):IF X<1 OR X>3 THEN 150 

180 ON X GOTO 200,2820,5130 

190 GOTO 140 

200 PR=1: GOSUB 2540 

210 ’ 

220 ' 

230 5 MENU * 

240 GOSUB 2440 

250 LOCATE18,3,0:PRINT"MENU" 

260 LOCATE0,8,0 

270 PRINT:PRINT" 1 = INVOEREN GEGEVENS" 

280 PRINT:PRINT" 2 = WIJZIGEN / ZOEKEN" 

290 PRINT:PRINT" 3 = LIJST BEELDSCHERM" 

300 PRINT:PRINT" 4 = LIJST PRINTER" 

310 PRINT:PRINT" 5 = EINDE" 

320 PRINT:PRINT" Programma verlaten via EINDE (5) 
330 LOCATE 2,22:PRINT"WELK NUMMER?: "ï 
340 GOSUB 2350 

350 X=VAL <X$):IF X<1 OR X>5 THEN 330 
360 ON X GOTO 400,760,1210,1380,1720 
370 GOTO 330 
380 ’ 

390 ’INVOEREN 
400 GOSUB 1790 

410 FOR 1=1 TO 6 :X$(I)="":NEXT 
420 LOCATE 13,3:PRINT"DATA INVOEREN" 

430 N=REC 

440 IF REC>=1500 THEN 690:REM EVT.WIJZIGEN * 

450 L0CATE16,8,0:PRINT N+l 
460 LOCATE16,9' 

470 GOSUB 2350:X=VAL<X$) 

480 IF X<1 ORX>9 THEN460 
490 LOCATE16,9:PRINT X 
500 LOCATE20,9:PRINT 0*<X> 

510 X«(1)»X«' 

520 FOR 1=2 TO 6 
530 LOCATE 9,9+1,0 
540 NR=L (I) 

550 GOSUB 2180 
560 IF X$< >""THEN X$(I)=X$ 

570 NEXT 

580 GOSUB 1800:GOSUB 1980 
590 LOCATE16,B,0:PRINT N+l 
600 LOCATE 0,19,0:PRINT"INVOEREN? J/N:"s 
610 GOSUB 2350 

620 IF X*="J" OR X$="j"THEN 650 
630 IF X*="N" OR X$="n"THEN 460 
640 GOTO 600 

650 N=N+1:REC=REC+1:GOSUB 2120 
660 GOTO 400 
670 ’ 

680 ’BESTAND VOL 
690 CLS 

700 FOR 1=1 TO 40 
710 BEEF 1 : PR I NT " BESTAND VOL ! " 


MSX GIDS TIJDSCHRIFTEN INDEX 
DATA WIJZIGEN 


L ESC = TERUG NAAR MENU 


RECGRDNUMMER: 90 
ÜNDERWERPNUMMER: £3 


TITEL 

BLAD 

UITGAVE 

PAGINA 

OPM. 


NORTH 9EA BULION 
MAP ORANJE 
USER 


KUMA 


CASSETTE 


f i t T ES 3 =mach . taal c 3 3 =düs -cp/m 

f5D=ZAKELI JK C63=SPELLEN 
L 1 3 -HARDWARE C S 1 =EDUCATIEF C 9 1 =DIVERSEN 
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720 BEER:NEXT 
730 GOTO 240 
740 ’ 

750 ’ WIJZIGEN 

760 FOR 1=1 TO 6:X$(I)="":NEXT 
770 GOSUB 1790!NR=4 

780 LOCATE 13,3:PRINT"DATA WIJZIGEN" 

790 LOCATE16,8,0:GOSUB 2180 
800 IF X$=""THÈN840 

810 X=VAL<X$):IFX<1 OR X>REC THEN780 
820 N=X:GOSUB 2060 
830 GOTO 1010 
840 FOR 1=2 TO 6 
850 LOCATE 9,9+1,0:NR=L(I) 

860 GOSUB 2180 

870 IF X$< >""THEN Y$=X$:Y=I:GOTO 900 
880 NEXT 
890 GOTO 760 
900 FOR N=1 TO REC 
910 GET#1,N:X$(Y)=N$(Y> 

920 IF INSTR <1,X$(Y), Y$)=0 THEN 990 
930 GOSUB 2060:GOSUB 1980 
940 LOCATE 0,19:PRINT"DEZE? J/N:"; 

950 GOSUB 2350 

960 IF X$="J"ORX$="j"THEN1010 
970 IF X$="N"ORX$="n"THEN990 
980 GOTO940 
990 NEXT 
1000 6OTO760 
1010 GOSUB 1980 
1020 LOCATE 17,9:GOSUB2350:IF X $=""THEN1050 
1030 X=VAL(X$):IFX<1ORX>9THEN1020 

1040 LOCATE 16,9: PRINTX : LOCATE20, 9: F'RINTO$ (X ) : X$ (1) =X$ 
1050 FOR I=2T06 
1060 LOCATE 9,9+1,0 
1070 NR=L(I) 

1080 GOSUB 2180 

1090 IF X*<>""THENX*(I)=X* 

1100 NEXT 
1110 GOSUB 1980 

1120 LOCATE 0,19:PRINT"INVOEREN? J/N:": 

1130 GOSUB 2350 

1140 IF X$="J"OR X$="j"THEN 1170 

1150 IF X$< >"N"AND X$K >"n"THEN1120 

1160 GOTO 1010 

1170 GOSUB 2120 

1180 GOTO 760 

1190 •' 

1200 ’BEELDSCHERM PROGRAMMA 
1210 GOSUB 1790 

1220 FOR 1=1 TO 6:X$(I) ..NEXT 

1230 LOCATE 13,3:PRINT"LIJST BEELDSCHERM" 

1240 LOCATE17,9,0:GOSUB 2350 

1250 X=VAL <X$):ÏF X<1 OR X>9 THEN 1240 

1260 Y=X:LOCATE17,9:PRINT X 

1270 FOR N=1 TO RÉC 

1280 GET#1,N:X=VAL.<N$<1> ) 

1290 IF XOY THEN 1330 

1300 GOSUB 2060:GOSUB 19B0 

1310 LOCATE 0,19:PRINT"DRUK EEN TOETS"; 

1320 GOSUB 2350 
1330 NEXT 
1340 GOTO 1210 
1350 ’ 

1360 ? 

1370 - PRINT PROGRAMMA 
1380 CLS:GOSUB 2440 

1390 LOCATE 13,3:PRINT"PRINT PROGRAMMA" 

1400 LOCATE 0,10:P$="" 

1410 PRINT"MEt OF ZONDER DE OPMERKINGEN? M/Z:"; 

1420 GOSUB 2350 

1430 IF X$= , 'M"ORX$="m"THENP$="M" : GOTO1450 
1440 IF X$< >“Z" AND X$<>"z"THEN 1400 
1450 LOCATE0,20 

1460 PRINT"PRINTER KLAAR? DRUK EEN TOETS:"; 

1470 GOSUB 2350 5 

1480 CLS:GOSUB 2440 


MSX GIDS PROGRAMMA INDEX 
DATA INVOEREN 


T 


ESC = TERUG NAAR MENU 


RECORDNUMMER: 44 
ONDERWERPNUMMER: 1 ARCADE 

DISK NR 
PR.NAAM 
SVSTEEM 
DATUM 
OPM. 


[ 41 . f i 1 =ADVENTURE C 3 3=DATA -BASE 

[ 71 £ § 3 =CACULATIE E 63=UTILI TV 

C T J -BORDSPEL C 8 3 =EDUCATIEF C 9 3 =DIVERSEN 
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1490 LPRINT:LPRINT"MSX GIDS TIJDSCHRIFTEN INDEX" 

1500 LPRINT:LPRINT 
1510 FOR J=1 TO 9 
1520 LDCATE 0,10 

1530 PRINT "ONDERWERP: ";J 5 " "jO$(J) 

1540 LPRINT "ONDERWERP: ";j;" ":0*<J> 

1550 LPRINT:LOCATE0,20:PRINT SPC<10) 

1560 LPRINT”REC,NR. TITEL";SPC(19);"BLAD";SPC(18);"UITGAVE";SPC(15);"PAG. 

1570 FOR N=1 TO REC 
1580 LOCATE 0,20:PRINT N 
1590 GET#1,N:X*<1)=N$<1) 

1600 X=VAL(X$<1) ) 

1610 IF XOJ THEN 1670 

1620 GOSUB 2060 

1630 LPRINT USING"####";N; 

1640 FOR K=2 TO 5 

1650 LPRINT" ";X$(K);:NEXTK:LPRINT 
1660 IF P$="M"THEN LPRINT"OPM. ";X$(6) 

1670 NEXT N 

1680 LPRINT:LPRINT:NEXT J 
1690 LPRINT:GOTO 240 
1700 ’ 

1710 ’ 

1720 CLS:LOCATE,,0 
1730 RSET REC$=StR*ï<REC) 

1740 PUT#1,1501:REM EVT WIJZIGEN * 

1750 CLOSE 
1760 GOTO 60 
1770 ’ 

1780 ’SCHERM 1 * 

1790 CLS:GOSUB2440 

1B00 LOCATE0,8,0 

1810 PRINT" RECORDNUMMER: 

1820 PRINT"ONDERWERPNUMMER: 

1830 PRINT 

1840 PRINT" TITEL: 

1850 PRINT" BLAD: »- 

1860 PR INT "UITGAVE: ■■ 

1870 PRINT" PAGINA: _ " 

1880 PRINT" OPM.: 


1890 LOCATE0,21 

1900 PRINT"C13 = ";0$(1);”C23=";0$<2) 5 "C 33 = " 50 $( 3 ); 
1910 LOCATE0,22 

1920 PRINT" [ 4 3 = " ;0$(4)?"E53=":0$(5);"C63 = ";O*(6): 
1930 LOCATE0,23 * ’ 

1940 PRINT"C73 = ":0$(7);"C83="j0$<8)ï"C93 = ":0$(9): 
1950 RETURN 
1960 ? 

1970 5 SUBROUTINE 

1980 L0CATE16,8,0:PRINT N 

1990 LOCATE17,9:PRINT X$ < 1 > 

2000 FOR 1=2 tO 6 
2010 LOCATE 9 , 9 + 1,0 
2020 PRINT X$(I):NEXT 
2030 RETURN 

2040 =• 

2050 'RECORD INLEZEN 
2060 GET#1,N 
2070 FOR 1=1 TO 6 
2080 X$ <I)=N$(I):NEXT 
2090 RETURN 
2100 ’ 

2110 ’ RECORD WEGSCHRIJVEN 
2120 FOR 1=1 TO 6 
2130 LSET N$(I)=X$(I):NEXT 
2140 PUT#1,N 
2150 RETURN 
2160 •' 

2170 =■ INVOERROUTI NES 

2180 A$=CHR$( 8 )+" "+CHR$( 8 ):X$="" 

2190 W$=INKEY$ 

2200 IFTIME=25THENL0CATE,,0 
2210 IFTIME>30THENLOCATE,i1:TIME=0 
2220 IFW$=""THEN2190 

2230 IFW$=CHR$(27)AND PR=1THEN RETURN 240 
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2240 IFWf=CHRf(27)AND PR=2THEN RETURN 2850 
2250 IF Wf >CHRf (31)AND Wf < CHRf(123)THEN 2320 
2260 ÏF Wf< >CHRf(8)THEN 2300 
2270 ÏF Xf="" THEN BEER:GOTO 2190 

2280 IF LEN(Xf) =1 THEN Xf=""!PRINT Af;:GOTO 2190 
2290 Xf=LEFTf(X*, LEN (Xf)-l): PRINT Af;:GOTO 2190 
2300 ïF Wf=CHRf (13) THEN LOCATE,,0:RETURN 

2310 BEEP:GOTO 2190 

2320 IF LEN(Xf)=NR THEN BEEP:G0T02190 
2330 PRINT Wf; :Xf=Xf+Wf:GOTO 2190 

2340 ? 

2350 Xf=INKEYf 

2360 IF TIME=25 THEN LOCATE,,0 
2370 IF TIHE>30 THEN LOCATE,,1: TIME=0 
2380 IF Xf="" THEN 2350 


2390 IFXf=CHRf(27) AND PR=1THEN RETURN 240 
2400 IFX$=CHRf(27)AND PR=2THEN RETURN 2850 

2410 LOCATE0,0,0:RETURN 
2420 ’ 

2430 ’KADER * 

2440 CLS:LOCATE,,0 


2450 PRINT" 
2460 PRINT" 
2470 PRINT” 
2480 PRINT" 
2490 PRINT" 
2500 PRINT" 


MSX GIDS TIJDSCHRIFTEN INDEX 

T- ESC = TERUG NAAR MENU ■ 


9 


9 

m 

9 


2510 RETURN 
2520 ' 

2530 ’ INIT * 

2540 OPEN"A:BESTAND"AS#1LEN=150 

2550 FIELD#1,2ASNf(1),26ASNf(2),21ASNf(3),21ASNf(4),4ASNf(5),71ASNf(6) 

2560 FIELD#1,5 AS RECf 

2570 L(1) = 1:L(2 > =26:L(3)=21:L(4)=21:L(5)=4:L(6)=71 
2580 PUT# 1,1502: REM EVT WIJZIGEN * 

2590 6ET#1,1501;REM EVT WIJZIGEN * 

2600 N=VAL(RECf):REC=VAL(RECf) 

2610 ON STOP GOSUB 2790 
2620 STOP ON 
2630 ' 

2640 * OPGAVE ONDERWERPEN (MAX. 9 LETTERS) 

2650 Of(1)="BASIC" 

2660 Of(2)="MACH.TAAL" 

2670 Of(3)-"DOS" 

2680 Of(4)="CP/M" 

2690 Of<5)="ZAKELIJK" 

2700 Of(6)="SPELLEN" 

2710 Of(7)="HARDWARE" 

2720 Of <8) = "EDUCATIEF" 

2730 Of(9)="DlVERSEN" 

2740 51 

2750 FOR 1=1 TO 9 

2760 Of(I)=LEFTf(Of(I)+SPACEf(9),9) 

2770 NEXT 
2780 RETURN 

2790 STOP OEF:STOP ON;RETURN 240 
2800 ’ 

2810 ’TWEEDE PROGRAMMA 
2820 PR=2:GOSUB 4850 

2R30 * 

2840 'MENU * 

2850 GOSUB 4750 

2860 LOCATE18,3,0:PRINT”MENU" 

2870 LOCATE0,8,0 

2880 PRINT:PRINT” 1 = INVOEREN GEGEVENS" 

2890 PRINT;PRINT" 2 = WIJZIGEN / ZOEKEN" 

2900 PRINT;PRINT" 3 = LIJST BEELDSCHERM" 

2910 PRINT:PRINT" 4 = LIJST PRINTER" 

2920 PRINT:PRINT" 5 = EINDE" 

2930 PRINT: PRINT" Programma verlaten via EINDE (5) ! ! 11 

2940 LOCATE 2,22:PRINT"WELK NUMMER?: 

2950 GOSUB 4710 

2960 X=VAL (Xf);IF X<1 OR X>5 THEN 2940 
2970 ON X GOTO 3010,3370,3820,3990,4270 

2980 GOTO 2940 


20 
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* INVOEREN 
GOSUB 4340 

FOR 1 = 1 TO 6:X$(I) = ""* NEXT 
LOCATE 13,3:PRINT"DATA INVOEREN" 

N=REC 

IF REC>=1500 THEN 3300:REM EVT.WIJZIGEN 

LOCATE16,8,0:PRINT N+l 

L0CATE16,9 

GOSUB 47i0:X=VAL(X$) 

IF X<1 ORX>9 THEN3070 
L0CATE16,9:PRINT X 
LOCATE20,9:PRINT 0$(X) 

X$<1)=X$ 

FOR 1=2 TO 6 
LOCATE 9,9+1,0 
NR=L(I) 

GOSUB 4690 

IF X$< >""THEN X$<I)=X$ 

NEXT 

GOSUB 4350:GOSUB 4530 
LOCATE16,8,0:PRINT N+l 
LOCATE 0,19,0:PRINT"INVOEREN'7 
GOSUB 4710 

IF X$="J" OR X*="j"THEN 3260 
IF X$="N" OR X$="n"THEN 3070 
GOTO 3210 

N=N+1:REC=REC+1:GOSUB 4630 

GOTO 3010 
,1 

’BEST AND VOL 
CLS 

FÖR 1=1 TO 40 
BEEP:PRINT"BESTAND VOL!" 

BEEP:NEXT 
GOTO 2850 
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9,9+1,0:NR=L(I) 


? WIJZIGEN 

FOR 1=1 TO 6:X$(I)="":NEXT 
GOSUB 4340:NR=4 

LOCATE 13,3:PRINT"DATA WIJZIGEN" 

LOCATE16,8,0:GOSUB 4690 
IF X$=""THÈN3450 

X=VAL (X$):IFX<1 OR X>REC THEN3390 
N=X:GOSUB 4570 
GOTO 3620 
FOR 1=2 TO 6 
LOCATE 
GOSUB 4690 

IF X$< >""THEN Y$=X$:Y=I:GOTO 3510 
NEXT 

GOTO 3370 

FOR N=i TO REC 

GET#1,N:X* <Y)=N$ <Y) 

IF INSTR(1,X$(Y),Y$)=0 THEN 3600 

GOSUB 4570: GOSLIB 4530 

LOCATE 0,19:PRINT"DEZE? J/N:"; 

GOSUB 4710 

IF X$="J"ORX$="j"THEN3620 
IF X$="N"ORX *="n"THEN3600 
GOTO3550 
NEXT 

GOT03370 
GOSUB 4530 

LOCATE 17,9:G0SUB4710:IFX*=""THEN3660 

X=VAL <X$):IFX<1ORX >9THEN3630 

LOCATE 16,9:PRINTX:LOCATE20,9:PRINTO$ < X) 

FOR I=2T06 

LOCATE 9,9+1,0 

NR=L(I) 

GOSUB 4690 

IF X*K>""THENX$(I)=X$ 

NEXT 

GOSUB 4530 

LOCATE 0,19:PRINT"INVOEREN? J/N:"; 


CQHTR0LETELLIH6 
Regel: 10 - 186 
Regel: 20 - 93 
Regel: 30 - 133 
Regel: 40 - 58 
Regel: 50 - 58 
Regel: 60 - 60 

Regel: 70-211 
Regel: 80 - 166 
Regel: 90 - 92 
Regel: 100 - 231 
Regel: 110 - 156 
Regel: 120 - 215 
Regel: 130 - 173 
Regel: 140 - 155 
Regel: 150 - 102 
Regel: 160 - 242 
Regel: 170 - 53 
Regel: 180 - 77 
Regel: 190 - 67 
Regel: 200 - 141 
Regel: 210 - 5B 
Regel: 220 - 58 
Regel: 230 - 58 
Regel: 240 - 76 
Regel: 250 - 186 
Regel: 260 - 107 
Regel: 270 - 72 
Regel: 280 - 17 
Regel: 290 - 52 
Regel: 300 - 59 
Regel: 310 - 215 
Regel: 320 - 212 
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X*(i)=X* 


GDSUB 
IF X* 


4710 
: " J "OR 


X$="j"THEN 3780 
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IF X$< >"N"AND X$< >”n ,, THEN3730 
GOTO 3620 
60SUB 4630 
GOTO 3370 

’BEELDSCHERM PROGRAMMA 
GOSÜB 4340 

FOR 1=1 TO 6:X$(I)=""sNEXT 

LOCATE 13,3:PRINT"LIJST BEELDSCHERM" 

LOCATE17,9,0:GOSUB 4710 

X=VAL < X$):ÏF X< 1 OR X>9 THEN 3850 

Y=X:LOCATE17,9:PRINT X 

FOR N=1 TO RÈC 

GET#l,Ns X=VAL(N$ <1)) 

IF XOY THEN 3940 

GOSUB 4570:GOSUB 4530 

LOCATE 0,19:PRINT"DRUK EEN TOETS"; 

GOSUB 4710 

NEXT 

GOTO 3820 


'PRINT PROGRAMMA 
CLS:GOSUB 4750 

LOCATE 13,3:PRINT"PRINT PROGRAMMA" 
LOCATE0,20 

PRINT"PRINTER KLAAR? DRUK EEN TOETS:"; 
GOSUB 4710 
CLS:GOSUB 4750 

LPRINT:LPRINT"MSX GIDS PROGRAMMA INDEX 
LPRINT:LPRINT 
FOR J=1 TO 9 
LOCATE 0,10 

PRINT "ONDERWERP: ";J;" ";0$(J) 

LPRINT "ONDERWERP: ";j;" ";0$(J) 

LPRINT:LOCATE0,20:PRï NT SPC(10) 

LPRINT"REC DISK NAAM SYSTEEM 

FOR N=1 TO REC 
LOCATE 0,20:PRINT N 
GET#1,N:X$(1)=N$ <1) 

X=VAL(X$<1)) 

IF XOJ THEN 4220 
GOSUB 4570 

LPR INT IJS ING " #### " ; N; 

FOR K=2 TO 6 

LPRINT" ";X$ <K > 5:NEXTK:LPRINT 
NEXT N 

LPRINT:LPRINT:NEXT J 
LPR INT «.GOTO 2850 


CLS:LOCATE,,0 
RSET REC$=STR$(REC) 

PUT#1,1501:REM EVT WIJZIGEN * 

CLOSE' 

GOTO 60 

’SCHERM 1 # 

CLS:GOSUB4750 

LOCATE0,8,0 

PRINT" RECORDNUMMER: 

PRINT"ONDERWERPNUMMER: " 

PRINT 

PR INT "DISK NR:_" 

PRINT"PR.NAAM: _" 

PR INT "SYSTEEM: __" 

PRINT" DATUM: _" 

PRINT" OPM.: 

LOCATE0,21 

PRINT"C13=";0$(1);"C23=";0$(2);"C3]="; 
LOCATE0,22 

PRINT"C43=";0$(4);"C53=";0$(5);"C63="; 
LOCATE0,23 

PRINT"C 7 3 = ";0$(7);"C83 = ";0$(8);"C93 = "; 
RETURN 

’SUBROUTINE 
GOSUB 1980 
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0$<3); 
0$(5); 
0<*(9) ; 
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RETURN 

’RECORD INLEZEN 

GET#1,N 

FOR 1=1 TO 6 

X$ < I)=N$ < I) :NEXT 

RETURN 

•' RECORD WEBSCHRIJVEN 

FOR 1=1 TO 6 

LSET N$ < I)= X$(I):NEXT 

PUT#1,N 

RETURN 

’INVOERROUTINES 
GOSUB 2170 
RETURN 
GOSUB 2350 
RETURN 


’KADER * 

CLS:LOCATE,,0 
PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 
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ESC = TERUG NAAR MENU J" 
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RETURN 


’ INIT * 

OPEN"A: BESTAND2" AS# 1 L.EN=70 
FIELD#1 
FIELD#1,5 AS 
L < 1) =1: L <2) 
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,2ASN$(1),4ASN$(2),12ASN$(3),10ASN$(4),10ASN$(5),29ASNf(6) 


RECf 

: 4:L(3)=12:L(4)=10:L(5)=10;L(6)=29 


9 LETTERS) 


PUT#1,1502:REM EVT WIJZIGEN * 

GET#1,1501:REM EVT WIJZIGEN * 

N=VAL(RECf):REC=VAL(RECf) 

ON STOP GOSUB 5100 
STOP ON 

"OPGAVE ONDERWERPEN (MAX. 

0$(1)="ARCADE" 

0$(2)="ADVENTURE" 

0$(3)="DATA-BASE" 

0$(4)="TEKSTVERW" 

0$(5 > ="CACULATIE" 

0$(6)="UTILITY" 

0$(7)="BORDSPEL" 

0$(8)="EDUCATIEF" 

Of<9)="DIVERSEN" 

FOR 1=1 TO 9 

Of<I)=LEFTf(Of<I)+SPACEf(9).9) 

NEXT 

RETURN 

STOP OFF: STOF' ON: RETURN 2850 

’ 1 t 

’EINDE PROGRAMMA 

CLS:LOCATE,,0 

PRINT:BEEP:PRINT:PRINT 

PRINT"Naarmate het bestand groeit worden de" 
PRINT"wachttijden bij het printen en het" 
PRINT"zoeken / wijzigen steeds langer." 
PRINT"Zolang de drive draait is het programma" 
PRINT"nog bezig! Wacht rustig a-f ! " 

BEEP:PRINT 

PRINT"Maak regelmatig een back-up kopie van" 
PRINT"de diskette!!" 

PRINT:PRINT:PRINT 
END 


Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Rege! 

Regel 

Regel 

Regel 

Rege] 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


4100 - 190 
4110 - 27 
4120 - 130 
4130 - 228 
4140 - 145 
4150 - 62 
4160 - 10 
4170 - 223 
4180 - 166 
4190 - 53 
4200 - 31 
4210 - 110 
4220 - 241 
4230 - 155 
4240 - 187 
4250 - 58 
4260 - 58 
4270 - 26 
4280 - 131 
4290 - 76 
4300 - 180 
4310 - 243 
4320 - 58 
4330 - 58 
4340 - 20 
4350 - 107 
4360 - 162 
4370 - 217 
4380 - 145 
4390 - 150 
4400 - 144 
4410 - 15 
4420 - 160 
4430 - 108 
4440 - 57 
4450 - 185 
4460 - 58 
4470 - 202 
4480 - 59 
4490 - 221 
4500 - 142 
4510- 58 
4520 - 58 
4530 - 126 
4540 - 142 
4550 - 58 
4560 - 58 


* 


















Regel! 4570 - 97 
Regels 4580 - 28 
Regels 4590 - 206 
Regel: 4600 - 142 
Regel: 4610 - 58 
Regel: 4620 - 58 
Regel: 4630 - 28 
Regel: 4640 - 166 
Regel: 4650 - 98 
Regel: 4660 - 142 
Regel: 4670 - 58 
Regel: 4680 - 58 
Regel: 4690 - 61 
Regel: 4700 - 142 
Regel: 4710 - 242 
Regel: 4720 - 142 
Regel: 4730 - 58 
Regel: 4740 - 58 
Regel: 4750 - 26 
Regel: 4760 - 211 
Regel: 4770 - 27 
Regel: 4780 - 126 
Regel: 4790 - 126 


Regel: 4800 - 202 
Regel: 4810 - 34 
Regel: 4820 - 142 
Regel: 4830 - 58 
Regel: 4840 - 58 
Regel: 4850 - 64 
Regel: 4860 - 20 
Regel: 4870 - 250 
Regel: 4880 - 165 
Regel: 4B90 - 77 
Regel: 4900 - 75 
Regel: 4910 - 4 
Regel: 4920 - 31 
Regel: 4930 - 69 
Regel: 4940 - 58 
Regel: 4950 - 58 
Regel: 4960 - 169 
Regel: 4970 - 184 
Regel: 4980 - 109 
Regel: 4990 - 219 
Regel: 5000 - 152 
Regel: 5010 - 66 
Regel: 5020 - 106 


Regel: 5030 - 154 
Regel: 5040 - 113 
Regel: 5050 - 58 
Regel: 5060 - 31 
Regel: 5070 - 20 
Regel: 5080 - 131 
Regel: 5090 - 142 
Regels 5100 - 61 
Regel: 5110 - 58 
Regel: 5120 - 58 
Regel: 5130 - 26 
Regel: 5140 - 33 
Regel: 5150 - 162 
Regel: 5160 - 148 
Regel: 5170 - 166 
Regel: 5180 - 59 
Regel: 5190 - 72 
Regel: 5200 - 139 
Regel: 5210 - 72 
Regel: 5220 - 93 
Regel: 5230 - 39 
Regel: 5240 - 129 
Totaal: 58847 


SPEED- 

SECTOR- 

COPY 



SECTOR-COPY PROGRAMMA 

Om files te kopieeren hebben Disk BASIC en 
MSX DOS het 'COPY' commando. Bij gebruik 
van 2 drives gaat dit allemaal wel 
redelijk maar met 1 drive gaat het 
kopieeren -met COPY- erg lastig. Wanneer 
de diskette nog bijna leeg is of, wanneer 
het slechts om enkele grote programma's 
(of files) gaat, valt het nog wel mee, 
maar een diskette met erg veel kleine 
programma's vraagt wel een heel soepele 
pols voor het -tot vervelens toe¬ 
omwisselen van de schijfjes. Het volgende 
programma lost alle kopieerproblemen op. 
Het programma kopieert HELE diskettes (let 
hier goed op; voor het overzetten van 
enkele programma's of files kan dit 
programma NIET worden gebruikt), en is 
zowel voor 1 drive als voor 2 drives 
geschikt. Bij gebruik van 1 drive hoeft 
slechts 15 keer de diskette omgewisseld 
te worden. Daar er groepen van 48 sectoren 
tegelijk worden omgezet gaat dit 
omwisselen regelmatig, met een vaste 
tussenpauze; geen diskjockey werk meer! 
Sectorcopy programma's hebben verder nog 
het voordeel dat ze sommige be¬ 
schermingen omzeilen. Dit kopieerprogramma 
dus ook, en dat is mooi meegenomen! 


ALLEEN VOOR 64 K MACHINES 
ALLEEN GESCHIKT VQOR DISKETTE 
Beeldscherm: WIDTH 36 

10 SCREEN®:CLEAR50,35000!:DEFINTB-Z 
20 WIDTH37:KEYOFF:DEFSNG A 
30 LOCATE10,1:PRINT"MSX sector copy" 
40 LOCATEB,20:BEEF:PRINT"1 DR 2 DRIV 
ES? 1/2:"s' 

50 X$=INKÈY$:IFX$=""THEN50 
60 X=VAL(X$>:IFX<ÏORX>2THEN40 
70 LOCATEB,20:PRINT" DRIVES: ":X: 
SPC(20) 

80 FOR F=0 TO 719 STEP 48 
90 IFX=2THEN130 

100 FOR 1=1 TO 9999:NEXT:BEEP:BEEP 
110 LOCATE0,20:BEEP:PRINT"Insert MAS 
TER disc, press RETURN." 

120 X$=INKEY$:IFX$=CHR$(13)THEN130EL 
SE 120 

130 ADR=35001!:FOR S=0 TO 47 
140 A1=INT(ADR/256):A2=ADR-256#A1 
150 POKE S<HF351, A2: P0KE&HF352, Al 
160 SEC=F+S 

170 LOCATE0,8:PRINT" READ sector: "s 
SEC 

1B0 X$=DSKI$(1,SEC) 

190 ADR=ADR+512 

200 NEXT S 

210 IFX=2THEN250 

220 FOR 1=1 TO 9999:NEXT:BEEP:BEEP 
230 LOCATE0,20:BEEP:PRINT" Insert SL 
AVE disc, press RETURN." 

240 X$=INKEY$:IFX$=CHR$(13)THEN250EL 
SE240 

250 ADR=3500i!:FOR S=0 TO 47 
260 A1=INT(ADR/256):A2=ADR-256*A1 
270 P0KE&HF351,A2:P0KE&HF352,Al 
280 SEC=F+S 

290 LOCATE0,8:PRINT"WRITE sector: ": 
SEC 

300 DSKO$X,SEC 
310 ADR=ADR+512 
320 NEXT S:NEXT F 

330 LOCATE0,20:BEEP:PRINT"FINISHED.. 
.":END 


Het eerste programma is een BASIC versie. 
Dit progamma is uiteraard tamelijk traag 
-maar wel sneller dan COPY- en het geeft 
een goed inzicht in het werken met 
sectoren en veel stukken uit dit 
programmma kunnen dan ook in diverse 
andere programma's gebruikt worden. De 
versie met de machinetaal routine is 
supersnel. Het overzetten van een diskette 
gaat in minder dan de helft van de tijd 
die de BASIC versie nodig heeft. Deze 
versie maakt gebruik van een ROM-routine. 
Deze ROM-routine ( slechts een sprong naar 
een ander adres) staat op adres &h0144. 
Voor naar dit adres wordt gegaan moeten de 
volgende gegevens worden ingevoerd: 

Reg. A: drive nummer 

Reg. B: aantal sectoren 

Reg. C: format type 

Reg. DE: start sector 

Reg. HL: RAM adres 

Carry flag: SET=WRITE,CLEAR=READ 
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Bij drivenuramer moet een 0 worden 
opgegeven voor de eerste drive en een 1 
voor de tweede. 

Het aantal sectoren is het aantal dat in¬ 
gelezen c.q. weggeschreven moet worden. 
NIET het totaal aantal secoren van de 
schijf. 

Het formattype is F8 voor de 9—sector SS 
drives en F9 voor dezelfde DS drives. 

Het RAM-adres is het adres vanaf waar de 
gegevens ,van de sectoren weggeschreven 
worden (of ingelezen). 

Beide programma's zijn gemaakt voor de 
oO-track diskdrive systemen. 


ALLEEN VOOR 64 K MACHINES 
ALLEEN GESCHIKT VOOR DISKETTE 
Beeldscherm: WIDTH 36 


10 SCREEN0: CLEAR 50,34978' 

20 WIDTH37:KEYOFF:DÉFINT A-Z 
30 LOCATE10,1:PRINT"MSX sector copy" 
35 GOSUB 310 

40 LOCATEB,20:BEEF:PRINT”1 OR 2 DRIV 
ES? 1/2:"* 

50 X$=INKEY$:IFX$=""THEN50 
60 X=VAL(X$):IFX<1ORX>2THEN40 
65 LOCATE 8,20:PRINT" DRIVES: ":X 
5 SPC(20) 

70 FOR F=0 TO 719 STEP 48 
80 IFX=2THEN110 

85 FOR A=1T09999:NEXT:BEEP:BEEP 
90 LOCATE0,20:BEEP:PRINT"Insert MAST 
ER disc, press RETURN." 

100 X$=INKEY$:IFX$=CHR$(13)THEN110EL 
SE 100 

110 POKE 34992!,0 
120 POKE 34986!’INT(F/256) 

130 POKE 34985!,F MOD 256 
140 POKE 34990!,175 
150 LOCATE0,8:PRINT" READ sector: " 

F;"—"■F+4B 
160 A= USR(0) 

190 IFX=2THEN220 

195 FOR A=1T09999:NEXT:BEEP:BEEP 
200 LOCATE0,20:BEEP:PRINT" Insert SL 
AVE disc, press RETURN." 

210 X$=INKEY$:IFX$=CHR$(13)THEN220EL 
SE210 

220 POKE 34992!,0 

230 IF X=2 THEN POKE 34992!,1 

240 POKE 34990!,55 

260 LOCATE0,8:PRINT"WRITE sector: ": 
F;";F+4B ’ 

280 A= USR(0) 

290 NEXT F 

300 LOCATE0,20:BEEP:PRINT"FINISHED.. 

.":END 

310 FOR 1=0 TO 16:READ A 

330 POKE 34980!+1,A:NEXT 

350 DEFUSR=34980!:RETURN 

360 DATA 6,48 

370 DATA 14,248 

380 DATA 17,0,0 

390 DATA 33,184,136 

400 DATA 175 

410 DATA 62,1 

420 DATA 205,68,1 

430 DATA 201 


Wanneer we het gehele programma in machine 
taal zouden schrijven zou er nog een 
kleine snelheidswinst te behalen zijn. 
Echt spectaculair zou het worden wanneer 
er een RAM-bank (vanonder het ROM- 
gedeelte) ingevoegd zou worden om de 
gegevens op te slaan. Dan zou, met 1 
drive, nog maar 6 keer van diskette 
gewisseld hoeven worden. Ik weet echter 
niet of dit programma dan nog voor alle 
diskdrive systemen bruikbaar zou zijn daar 
er diverse 'jump' en 'call' instructies 
worden doorlopen alvorens de eigenlijke 
routine (boven Himem) wordt bereikt. 

Wie weet hier meer over of heeft zelf al 
een dergelijk kopieerprogramma gemaakt? 

CATALÖG - 

diskette 

overzicht 

CATALOG 

Dit programmaatje geeft een overzicht van 
de diskette inhoud. Erg handig, vooral 
wanneer dit programma onder de naam 
AUTOEXEC.BAS' op de schijf wordt gezet 
zodat, direkt na het opstarten, de inhoud 
van de diskette wordt gegeven. Tevens 
krijgt men de lengte van de programmals 
plus de ruimte die nog over is op de 
diskette. Het inlezen van de index van de 
diskette gebeurt op dezelfde wijze als bij 
het BASIC kopieer programma. 

Ook dit programma kan met zowel 1 als 2 
drives worden gebruikt. 


ALLEEN GESCHIKT VOOR DISKETTE 
Beeldscherm: WIDTH 36 


10 CLEAR 200:COLOR15,1,1: SCREEN0 
20^KEYDFFs WIDTH40:DEFINT A-Zs DEFSN8 

30 PR INT 11 DISK CATALOG- DRIVE 1/2 ?: ” 

* 

35 X$=INKEY$:X=VAL(X*):IFX<10RX>2TH£ 

N35 

36 IF X=1 THEN X$="A:"ELSE X$="B;" 

40 PRINTX: PRINT"-*■ 

60 FOR S=5 TO 11 
70 Y$=DSKI$(X,S) 

80 FOR 1=60310! TO 60821! STEP 32:IF 
PEEK(I)< 32 OR PEEK(I)>127 THEN 120 
90 Y$="":FOR J=0 TO 11:Y$=Y$+CHR$<P£ 
EK(J+I)):NEXTJ:Y$=LEFT$(Y$,8)+"."+RI 
GHT*(Y*,4) 

95 PRINTY*: 

100 Y$=X*+Y$:OPEN Y$ AS#1:K=LOF(1)/1 
024+. 05: PR INT USING " ###. #K ": K: : KK.=K 
K+K:CLOSE 

110 Q=0+1:IF Q=2 THEN Q=0:PRINT 

120 NEXT I 
130 NEXT S 
140 PRINT:PRINT 

150 PR INT "GEBRUIKT : ";:PRINT USING " 
###.# K ":KK;:PRINT" VRIJ: "::PRIN 
T USING"###.# K":DSKF(X) 

160 END 


1 
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2e DISKDRIVE 



TWEEDE DISKDRIVE VOOR DE SONY HBD-50 

Als tweede drive hoeft niet perse een Sony 
drive gebruikt te worden. De aansluiting 
voor de tweede drive is een normale 
'Shughart-bus' en vrijwel elke 80-track 
drive kan hierop worden aangesloten. Dit 
kan dan ook een drive zijn voor de -veel 
goedkopere- 5.25 diskettes. 

Wij gebruiken zelf hiervoor de TEAC FD-55 
(40/80 track omschakelbaar, single sided, 
5.25') die we nog over hadden van de 
Apple* Wel moet deze tweede drive een 
eigen voeding heben, daar de voeding van 
de eerste drive hiervoor geen capaciteit 
genoeg heeft. De prijs van deze drives 
(incl. kastje, voeding en kabel) ligt wel 
aanmerkelijk lager dan de prijs van een 
tweede 3.5 MSX-drive en deze 5.25 drives 
worden vaak erg goedkoop aangeboden en 
zijn regelmatig 2e hands te koop. 

Wie voornamelijk met 1 drive werkt kan 
zo'n goedkope, oplossing gebruiken om 
back-up kopieen van z'n bestanden -en 
programma's- te maken; zeker aantrekkelijk 
als je -net als wij- nog ergens zo'n drive 
hebt, of voor een leuk prijsje op de kop 
kunt tikken (niet doen, daar kan de kop 
niet goed tegen!) Wij werken al geruime 
tijd op deze manier en dat gaat feilloos; 
wel maakt een 5.25 drive aanmerkelijk meer 
geluid dan z'n 3.5 broertje. Of dit 
verhaal ook opgaat voor de drives van 
Philips weet ik (nog) niet, maar 
hoogstwaarschijnlijk wel. 

Ga je dit proberen, dan moeten een paar 
punten in de gaten worden gehouden: Bij 
het aansluiten van de kabel moet uiteraard 
pen 1 van de eerste drive aansluiten op 
pen 1 van de tweede drive! De tweede drive 
moet —met de pinswitches— ook als tweede 
drive geschakeld worden, anders gaat deze 
drive ook alijd werken als drive 1 in 
bedrijf is. (Zie hiervoor de handleiding 
van de drive). 


De Teac FD-55 moet als volgt worden 
geschakeld: HS-ON, DS1-0N, UR-ON, SM-ON. 
Tevens moet het afsluit- weerstandsnet- 
werkje geplaatst worden. Bij gebruik van 
b.v. 3 drives moet dit netwerkje naar de 
derde drive toe; m.a.w. dit weerstandsnet- 
werkje komt aan het eind van de keten, dus 
bij de laatste drive. Zonder dit netwerkje 
lijkt alles goed te werken maar er zijn 
dan soms stoorpulsen zichtbaar die -een 
heel enkele keer- error- meldingen tot 
gevolg kunnen hebben. 


OUDE NUMMERS MSX-GIDS 

Mist u nog nummers van de MSX-GIDS?? 

Neem dan kontakt op met de uitgeverij. 

Er zijn -beperkt- nog oude nummers 
verkrijgbaar. 

Tel: 020-327464 


F1LOTEL 


Het Groningse softwarehuis Filosoft is 
gestart met een databank volgens het 
Viewdata- protokol: FILOTEL. 

Tedere huiscoraputeraar die met Viditel 
kan communiceren, kan ook -en zonder lid- 
maatschapskosten e.d.- met Filotel kon¬ 
takt opnemen. 

De rainiatuur-Viditel bevat 800 pagina's 
nieuws en tips voor gebruikers. Er is ook 
plaats ingeruimd voor >n prikbord, waarop 
men mededelingen voor collega-gebruikers 
kwij t kan. 

Filotel is 24 uur per dag bereikbaar 

onder het telefoonnumer: 050-145174. 

Nadere inlichtingen kunnen worden 
verstrekt door: Henk Menninga (050-13746) 
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favehltuRSS 


ELIDON 

In het magische feeenbos Elidon heeft de 
barre winter plaatsgemaakt voor de zachte 
lente. De feeen zijn druk bezig met het 
voorbereiden van het grote lentebal. Tot 
die voorbereidingen behoort het vlechten 
van een bloemenkrans voor de Feeënkoning¬ 
in. Die krans dient vervaardigd te worden 
van zeven toverbloemen, die diep in Eli¬ 
don verborgen zijn en die alleen m.b.v. 
speciale toverdrankjes tot bloei kunnen 
worden gebracht. Een fee wordt erop uit¬ 
gestuurd om een en ander te verzamelen, 
maar jaloerse boomgeesten en een weelde¬ 
rige plantengroei bemoeilijken haar werk. 
Aan jou, de speler, de taak het tere 
schepseltje veilig door het bos te lood¬ 
sen. 

Tot t zover achtergrond en doel van "Eli¬ 
don , het prachtige arcade-adventure van 
de Engelse softwarefabrikant Orpheus, dat 
in Nederland wordt uitgebracht door Aac- 
kosoft. "Elidon" is een opvallend spel. 
Op de eerste plaats heeft het schitteren¬ 
de graphics en geluidseffekten. De geva¬ 
rieerde bosflora is gedetailleerd en 
kleurrijk weergegeven en de animatie van 
de bosfee en de boomgeesten is een lust 
voor het oog. 

Tot de talrijke geluidseffekten behoort 
een mooie melodie, die ontleend is aan 
Edvard Grieg. Op de tweede plaats is de 
enorme omvang van "Elidon" in het oog 
springend: het spel heeft namelijk tegen 
de 4000 beelden, c.q. kamers. 

’Elidon" is bepaald geen gemakkelijk 
spel. De handleiding, die door Aackosoft 
in het Nederlands is vertaald en fraai is 
uitgevoerd, geeft zeer weinig informatie, 
hetgeen trouwens gebruikelijk is bij 
arcade-adventures. 

Wij zullen daarom wat dieper op het spel 
ingaan. Tevens willen wij diegenen, die 
problemen met het spel hebben, helpen 
door het geven van tips en een kaart. 

Jij start je speurtocht steeds in de 
ruimte met de bloemenkrans. Hier moet je 
de bloemen een voor een afleveren. Je 
ziet op het beeldscherm steeds een kamer 
met de verbindingen naar een of meer 
andere kamers. Aan de rechterkant van het 
scherm wordt gedurende het spel de vol¬ 
gende informatie gegeven (van boven naar 
beneden): het aantal levens, de score, 
het energiepeil, de voorwerpen die je met 
je mee draagt, het percentage bezochte 
kamers en een richtingaanwijzer in de 
vorm van een kleine pijl. Je verliest een 


leven als je alle energie verbruikt hebt, 
terwijl je er een leven bijkrijgt, als je 
een bloem naar het startpunt brengt. Je 
verliest energie als je tegen planten 
botst en/of erin verstrikt raakt, wanneer 
je in aanraking komt met boomgeesten of 
magische barrières en wanneer je onge- 
lukshoefijzers (herkenbaar aan de naar 
beneden gerichte uiteinden) aanraakt. Je 
kunt je energievoorraad weer aanvullen 
door het glinsterende stuifmeel, dat af 
en toe in beeld verschijnt, op te pakken. 
De richtingaanwijzer heeft drie funkties: 
eerst geeft hij je de plaats aan waar je 
een fles toverdrank kunt vinden, daarna 
wijst hij je de weg naar een bloem en tot 
slot leidt hij je weer naar het start¬ 
punt. Ben je op de plaats van bestemming 
aangekomen, dan verandert de pijl in een 
stip. Soms verdwijnt de pijl van het 
scherm. Je kunt hem dan weer aan het werk 
krijgen door een gelukshoefijzer (te 
herkennen aan de naar boven gerichte 
uiteinden) op te pakken, hetgeen tevens 
je score verhoogt. Verder vind je in het 
bos verschillende voorwerpen, die allen 
een bepaalde funktie hebben. Met sommige 
kun . ^ e P aa lde geesten vernietigen, 
terwijl je met andere magische barrières 
kunt doorbreken (tip: magische barrières 
houden niet van muziek). We raden je aan 
om bij het begin van de tocht de fakkel 
te pakken (m.b.v. het bankje) want daar¬ 
mee breng je licht in de donkere ruimtes. 
Houd er wel rekening mee, dat je maximaal 
drie voorwerpen mee kunt dragen. 

DE KAART 

Om je te helpen de weg in het woud Elidon 
te vinden, hebben wij het in kaart ge¬ 
bracht. Op deze kaart staan de verbindin¬ 
gen tussen de kamers aangegeven, alsmede 
het startpunt en de vindplaatsen van de 
magische barrières, het bankje, de fak¬ 
kel, de gelukshoefijzers en de grotten 
(die zijn de ruimtes waar geen planten 
groeien en die witte rotsachtige wanden 
hebben)• De vindplaatsen van de overige 
voorwerpen en van de flessen toverdrank 
en de bloemen (die overigens per spel 
variëren) hebben we niet aangegeven; die 
moet je zelf maar zien te vinden. 

Gezien de omvang en de complexiteit van 
het doolhof is het mogelijk, dat de kaart 
niet geheel foutloos is. Toch menen wij, 
dat zij voor 99,9% klopt. Mochten we 
fouten ontdekken, dan zullen we die in de 

komende nummers corrigeren. M.b.v. boven¬ 
staande informatie en de kaart moet je 
een flink eind in "Elidon" kunnen vorde¬ 
ren. Veel plezier en succes! 
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Elidon’ wordt geleverd op cassette en is 
een produkt van Orpheus, dat in Nederland 
door Aackosoft wordt uitgebracht. Het 
spel kost fl. 45,—. 


HARRY SCHIFFELERS. 



Beeld * * * * * 
Geluid* * * * * 
Spelkwaliteit* * * * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie* * * * 
Prijs* * * * * 

***** ZEER GOED 
***« GOED 
**♦ REDELIJK 
.** MATIG 

4 SLECHT 



VERKLARING DER TEKENSi 

*: Magische barrière 
B: bankje (29,34) 

Fs -fakkel (33,33) 

G: grot 

Hs gel ukshoe-f i jz er 
Ss start (31,34) 

-: verbinding tussen kamers 
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COLOSSAL ADVENTURE 


ADVENTURE 

TIPS 

LORDS OF TIME 
DOEL 

Je moet negen "ingrediënten" (uit elk 
tijdperk een), waarmee de "Evil Time- 
lords" verslagen kunnen worden en acht¬ 
tien schatten verzamelen, 

TIPS : (m.b•t• het gedeelte, dat ik tot nu 
toe opgelost heb, ca. 70%) 

1. Reis per klok door de tijd. In de 
klok zijn 9 genummerde tandraderen, 
voor elk tijdperk 1. Draai aan het 
tandrad van het tijdperk, waar je 
naartoe wilt. Geef daarna de slinger 
een zet. 

2. Een bergje rommel en een hoopje com¬ 
post lijken van geen belang, maar ik 
zou ze toch eens nader onderzoeken. 

3. Met een spiegel en een bijl kun je 
een narcis en een wilgeboom op hun 
gemak stellen. 

4. Je ziet vreemde dingen als je padde¬ 
stoelen eet. 

5. Ga niet meteen op het aanbod van een 
tevreden gestelde fee in, anders zul 
je later vaak in het donker zitten. 

6. Mammoeten zijn bang voor vuur. 

7. De tijger moet dringend naar de tand¬ 
arts. 

8. Gil voor het effekt eens in de "diep¬ 
vriesgrot" en gooi het stukje ijs 
later in het water. 

9. Gebruik in de grot van de zilvervos 
en in de miniatuurtroonzaal het hou¬ 
weel. 

10. De Tyrannosaurus Rex en de Allosaurus 
doden alles en iedereen, ook elkaar. 

11. Kijk niet in de spiegel, maar laat 
hem de Brontosaurus zien. Laat de 
spiegel in de grot met de holbewoners 
vallen. 

12. Het zwarte oog vernietigt het skelet. 

13. In de Ruimte der Ontdekkingen spelen 
de kreet van Archimedes en de uitvin¬ 
der van de stoommachine een grote 
rol. 

14. Geef een rillende bewaker wat warmte. 

15. Gebruik de spade in de oude grot 
intensief. 

16. Blaas je schor, Piet in de nor. 

17. Help de heraut aan drank en de draak 
aan voedsel. 

18. Wat doet men in sprookjes met kik¬ 
kers? 

19. Welke speelkaart doet je denken aan 
een nar? 

20. Bespeel de luit op de trap. Ga dan 
niet W, 0,0,NO en NW. 

HARRY SCHIFFELERS. 


DOEL: Je moet vijftien schatten naar het 
stenen gebouw naast het startpunt bren¬ 
gen, waarna het eindspel begint. Daarin 
moet je de elfen bevrijden en met de 
kroonjuwelen der elfen de grot verlaten. 

TIPS : 

1. Betreed de grot door het rooster in 
de 20 voet diepe verlaging in de 
diepe, smalle vallei. 

2. Kleine vogeltjes zijn bang voor zwar¬ 
te staven, terwijl grote slangen 
niets moeten hebben van vogeltjes uit 
kooitjes. 

3. Met de zwarte staaf kun je bruggen 
tevoorschijn toveren. 

4. De piraat bewaart zijn schatten dicht 
in de buurt van de oranje kolom in 
het doolhof van identieke gangetjes. 
Ga vanaf de uiterste westkant van de 
Zaal der Nevelen Z,0,Z,Z,Z,N en 0. 

5. De batterijenautomaat bevindt zich in 
het doolhof van verschillende gange¬ 
tjes. Ga vanaf de westkant van de 
lange, kale zaal naar het Zuiden en 
twee keer naar beneden. 

6. Gooi de bijl naar de gemene dwergen, 
die herhaaldelijk in de grotten op¬ 
duiken. Denk eraan, dat je de bijl na 
een worp steeds weer oppakt. 

7. Laat de Mingvaas niet zomaar op de 
grond vallen; zij zal dan namelijk 
breken. Leg eerst het kussen uit de 
zachte ruimte op de grond, waarop je 
dan met een gerust hart de vaas kunt 
laten vallen. 

8. Lees de "Spelunker's Gazette" en leg 
haar neer in "Witt^s End"; je krijgt 
dan bonuspunten. 

9. "Bedquilt" is een soort doolhof. 
Oost- en Westwaarts zijn steeds de¬ 
zelfde ruimtes, de richtingen naar de 
overige ruimtes wisselen voortdurend. 

10. Begiet het zaadje op de bodem van de 
westput twee keer met water uit de 
fles. De fles kun je vullen met ijs¬ 
water, dat zich op de bodem van de 
kleine, schone put bevindt. 

11. Vul de fles met olie uit de oostput 
en olie de roestige poort ten Noorden 
van de Reuzenkamer. 

12. Geef de troll, die de gammele brug 
over de kloof (W,ZW,N vanaf de Oos¬ 
terse ruimte) bewaakt, de Gouden 
Eieren uit de Reuzenkamer. Geef de 
beer de sandwiches. Maak hem daarna 
los, pak de ketting en neem de beer 
mee naar de brug. De beer zal de 
troll verjagen. Neem de beer niet mee 
over de brug! Ga daarna naar de Reu¬ 
zenkamer en zeg de toverwoorden (na 
elk woord de ENTER- of RETURN-toets 
drukken); de gouden eieren verschij¬ 
nen weer. 

13. De draak (ZW en W van de Zaal der 
Bergkoningen) kun je rustig met blote 
handen aanvallen. 

14. De klamp in de vloer van de ruimte 
met miljoenen schelpen kun je het 
beste met een drietand bewegen. 
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15. In de alkoof met de nauwe spleet in 
de. muur (N en W vanaf de Oosterse 
ruimte) moet je alles, wat je met je 
meedraagt, laten vallen. Jij kunt dan 
door de spleet de Kievitskamer ("Plo- 
yer Room”) betreden. Ga NO en pak dan 
in het donker de pyramide. 

16. Als je in de ruimte met puin "XYZZY" 
en in de ”Y2"-ruimte "PLUGH" zegt, 
keer je meteen terug naar het stenen 
gebouw. Omgekeerd geldt, dat wanneer 
je die woorden in het stenen gebouw 
uitspreekt, je meteen naar de betref¬ 
fende ruimte wordt getransporteerd. 

HET EINDSPEL: 


17• Ga naar de Noordoostkant van de grote 
zaal, waar dwergen liggen te slapen, 
leg er de staaf dynamiet neer en keer 
terug naar de Zuidwestkant. Zeg 
”BLAST": het dynamiet explodeert en 
doodt de dwergen. Ga daarna ijlings W 
(3x), omhoog (5x), 0 en omlaag. Ga 

tenslotte westwaarts. 

18. Giet het levenselixit over de skelet¬ 
ten. 

19. Bevrijd de elfen uit hun ketenen. 

20. Ga naar de stenen wenteltrap en sluit 
de kerkerdeur, nadat je alle elfen 
hebt bevrijd. 

21. Doof de lamp als je met het pentagram 
de put in de vijfhoekige kamer wilt 
verlaten. 

22. Ga vanaf de kerkerdeur vier keer 
omhoog en 0: je komt dan in de grot 
met het reusachtige spinneweb. Hier 
liggen de kroonjuwelen der elfen 
verborgen. 

23. M.b.v. het pentagram kun je de spin 
kwijtraken. De spin raakt er namelijk 
gehypnotiseerd door en zal je gewil¬ 
lig volgen. Leid haar via de wentel¬ 
trap omhoog naar de bergtop en gooi 
het pentagram naar beneden. 

24. Verlaat de grot met het spinneweb via 
de bovenkant van het web. 

25. Verlaat het onderaardse rijk, "Colos- 
sal Cavern”, via het rooster, waar¬ 
door je naar binnen bent gekomen. 

HARRY SCHIFFELERS. 

EMERALD ISLE 

DOEL : Je moet twintig schatten naar de 

schatkamer in het paleis brengen en ach¬ 
ter het wachtwoord van zes letters zien 

te komen. 

TIPS : 

ï- ^laak de parachute los en neem hem mee 
naar het Oosten. 4 

2. Draag de mantel om het paleis in te 
komen. 

3. De naaister zit om stof verlegen. 

4. Op het politieburo wordt een porte- 
monnaie vermist. 

5. De spin is verzot op een goedgevulde 
lijmpot. 

6. Ga W,Z,W vanaf het spinneweb. 

7. Maak een boot m.b.v. een blok hout, 
een handbijl en een handdoek. 


8. De lamp is een oude carbidlamp en 
werkt m.b.v. water, carbidkorrels en 
lucifers. 

9. M.b.v. het spreukenboek kun je alle 
mededelingen lezen. Voor zeer klein 
schrift heb je een vergrootglas no¬ 
dig, waarmee je ook ver kunt kijken. 

10. Gebruik de hekpaal als stut en als 
sleutel van een monument. 

11. Gebruik de spade zoveel mogelijk. 

12. Gebruik op de oever met kleurrijk 
gravel niet de spade, maar de pan. 

13. Een ladder of een plank kun je ook 
als brug gebruiken. 

14. Bevestig de touwen aan de rotspunten 
in de buurt van de waterval. 

15. Draag spikes op steile, glibberige 
hellingen. 

16. Draag overalls op vliegvelden. 

17. Repareer de lift met de schroeven¬ 
draaier en de buigtang. 

18. Start de klok m.b.v. een klein sleu¬ 
teltje en open poorten met een ver¬ 
sierde sleutel. 

19. Beweeg m.b.v. een touw de arm van het 
beeld in de crypte. 

20. Gooi in de granieten grot een vrij 
zwaar voorwerp op de grond en tussen 
de pilaren een stenen blok. 

21. Gebruik de bootshaak in de lage gang. 

22. Zaagmachines zijn allergisch voor 
armbanden. 

23. Duw tegen de inscripties in de ruimte 
onder het monument. 

24. Uit het stadsmuseum is een beeldje 
ontvreemd. 

25. Beëindig het spel met weelde. 

HARRY SCHIFFELERS. 

CASSETTES 


De programma's uit de MSX-Gids zijn ook op 
cassette leverbaar. 

Cassette nr.3 bevat alle programma'a van 
Gids nr. 3 plus een complete 'STUNTVOGEL' 
waarin de velden 7,8 en 9 zijn opgenomen. 

Cassette nr. 4 bevat alle programma's uit 
de MSX Gids nr.4, cassette nr.5 uit Gids 
nr. 5 enz. enz. 

De cassettes kosten Fl. 15,00 per stuk 
(incl. verzendkosten). 

Voor Belgie is de prijs BFr. 280.- 
Giro: 909515 t.n.v. A.Debels, Amsterdam. 
Voor Belgie: Rek.nr. 235-0430464-87 bij de 
Generale Bankmij. te Hasselt t.n.v. 
J.Herps, Amsterdam. 

Vergeet bij de bestelling niet het nummer 
te vermelden!!! 

HAAST?... Haal de cassette dan zelf bij: 
MSX SOFTSHOP, Vespuccistraat 48, 1056 SM 

Amsterdam. Bij de Softshop is ALLEEN DE 
LAATSTE cassette verkrijgbaar!!! 


31 











BIOS CALLS deel 2 

Als een vervolg op het vorige 
artikel over de BIOS ga ik het 
deze keer hebben over de 
subroutines die in verband staan 
met de printer, toetsenbord en de 
tekstschermen. 


STAND VAN DE REGISTERS; De enige 
register die van waarde kan 
veranderen is de accumulator. De 
andere registers behouden hun 
oorspronkelijke waarde. 

Interupts blijven mogelijk bij 
het uitvoeren van deze 
subroutine. 


De volgorde waarin deze 
subx-outines besproken worden is 
als volgt; de subroutine met het 
laagste adres wordt het eerst 
besproken en de subroutine met 
het hoogste adres wordt het 
laatst besproken. 

De subroutines worden dus niet 
onderverdeeld in groepen. Dit 
wordt niet gedaan omdat veel van 
de subroutines in te delen zijn 
in meer dan 1 groep. 

De subroutines; 

CHSNS 

##### 

Het adres waar deze subroutine 
moet aangeroepen worden is &H9C. 
Het eerste wat deze subroutine 
doet is kijken of een SHIFT toets 
ingedrukt is. Is dit zo dan 
zullen (als de funktie toetsen 
aan staan) de funktie toetsen F6 
tot F10 onderaan op het scherm 
geplaatst worden. 

Het tweede dat deze subroutine 
doet is kijken of de toetsenbord 
buffer leeg is. 

INPUT PARAMETERS; Bij deze 
subroutine worden geen input 
parameters verwacht. 

OUTPUT PARAMETERS; Als de 
toetsenbord buffer leeg is zal de 
ZERRO flag gezet worden. Indien 
de toetsenbord buffer wel enig 
inhoud heeft zal de ZERRO flag 
gereset worden. 


MOGELIJKHEDEN; In kombinatie met 
de subroutine ”CHGET” is deze 
subroutine zeer goed te gebruiken 
om een toetsaanslag af te 
wachten. 

CHGET 

##### 

Het adres waar deze subroutine 
moet aangeroepen worden is &H9F. 
Deze subroutine geeft een 
karakter van de toetsenbord 
buffer. Indien de toetsenbord 
buffer leeg is wacht de 
subroutine tot er een toets wordt 
ingedrukt. Indien mogelijk wordt 
de cursor op het scherm 
geplaatst. 

INPUT PARAMETERS; Bij deze 
subroutine worden geen input 
parameters verwacht. 

OUTPUT PARAMETERS; De accumulator 
zal de ascii waarde bevatten van 
het karakter dat opgehaald was in 
de toetsenbord buffer. 

STAND VAN DE REGISTERS; De enige 
register die van waarde kan 
verandert zijn is de accumulator. 
De flags kunnen eveneens 
verandert zijn doch de andere 
registers behouden hun 
oorspronkelijke waarde. 

Interupts blijven mogelijk bij 
het uitvoeren van deze 
subroutine. 
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MOGELIJKHEDEN; Na de registers 
HL, DE en BC op de stack gepushd 
te hebben roept deze subroutine 
de hook CHGE aan. Daardoor wordt 
het mogelijk andere input 
mogelijkheden te gebruiken. 

Het beginadres van de hook CHGE 
is &HFDC2 

CHPUT 

##### 

Het adres waar deze subroutine 
moet aangeroepen worden is &HA2 
Deze subroutine print een 
karakter op het scherm. Indien 

nodig zal het scherm een regel 
naar boven gescrold worden. 

INPUT PARAMETERS; De accumulator 
moet de ascii waarde bevatten van 
het te printen karakter. De 
geheugenadressen CSRX en CSRY 
moeten de plaats op het scherm 
bevatten. 

OUTPUT PARAMETERS; De 
geheugenadressen CSRX en CSRY 
warden aangepast. 

STAND VAN DE REGISTERS; Al de 
registers behouden hun 
oorspronkelijke waarde. 

De geheugenadressen CSRX, CSRY en 
TTYPOS kunnen veranderen in in 
waarde. 

Interupts blijven mogelijk bij 
het uitvoeren van deze 
subroutine. 

MOGELIJKHEDEN; Nadat de registers 
HL, DE, BC en AF op te stack 
gepushd zijn roept deze 
subroutine de hook CHPU aan. 
Daardoor krijgt men de 
mogelijkheid de karakters naar 
andere output apparaten te 
sturen, bijv: 

poke &HFDA4,&HCD 
poke &HFDA5,&HA5 
poke &HFDA6,&H0 

Dit betekent zoveel als; CALL 
LPTOUT. Het effekt is dat al de 
tekst die öp het scherm gezet 
word ook uitgeprint word op de 
printer, 

Om dit weer ongedaan te maken 
tikt men: 

poke &HFDA4,&HC9 


De hook CHPU ligt vanaf adres 
&HFDA4. De geheugenadressen CSRX 
en CSRY liggen respectievelijk op 
adres &HF3DD en op adres &HF3DC. 

LPTOUT 

###### 

Het adres waar deze subroutine 

moet aangeroepen worden is &HA5. 
Deze subroutine stuurt een 
karakter naar de printer <als er 
een aangesloten is). Als de 
printer niet klaar is om het 
karakter te ontvangen dan zal de 
subroutine wachten tot de printer 
wel klaar is om het karakter te 
ontvangen of tot de stop toets 
ingedrukt is. 

INPUT PARAMETERS; De accumulator 
moet de ascii waarde bevatten van 
het te printen karakter. 

OUTPUT PARAMETERS; De CARRY flag 
word gezet als de stop toets 
ingedrukt word. Indien het 
karakter geprint werd dan zal de 
CARRY flag gereset worden. 

STAND VAN DE REGISTERS; Al de 
registers behouden hun 
oorspronkelijke waarde. De flags 
kunnen verandert zijn. 

Interupts blijven mogelijk bij 
het uitvoeren van deze 
subroutine. 

MOGELIJKHEDEN; Deze subroutine 
roept eerst de hook LPTO. 

Daardoor is het mogelijk 
bijvoorbeeld al de karakters die 
naar de printer gezonden worden 
ook naar het beeldscherm te 
zenden. Dit doet men dan met 
onderstaand voorbeeld. 

poke &HFFB6,&HCD 
poke &HFFB7,&HA2 
poke &HFFB8,&H0 

Dit betekend zoveel als CALL 
CHPUT. 

Om dit weer ongedaan te maken 
tikt men: 

poke &HFFB6,&HC9 

Het beginadres van de hook LPTO 
is &HFFB6 

LPTSTT 

###### 


Het adres waar deze subroutine 




moet aangeroepen worden is &HA8. 
Deze subroutine kijkt of de 
printer klaar is om een karakter 
te ontvangen. 

INPUT PARAMETERS; Bij deze 
subroutine worden geen input 
parameters verwacht. 

OUTPUT PARAMETERS; Als de printer 
klaar is om een karakter te 
ontvangen zal de accumulator op 
255 gezet worden en de CARRY flag 
zal gereset worden. Indien de 
printer niet klaar is om een 
karakter te ontvangen zal de 
accumulator op nul gezet worden 
en de ZERRO flag zal gezet zijn. 

STAND VAN DE REGISTERS; De enige 
register die verandert kan zijn 
is de accumulator. De andere 
registers behouden hun 
oorspronkelijke waarde. De flags 
kunnen verandert zijn na het 
uitvoeren van deze subroutine. 

MOGELIJKHEDEN; In kombinatie met 
de subroutine ’*OUTDLP”is deze 
subroutine goed te gebruiken om 
geen karakter naar de printer te 
kunnen zenden zonder dat deze 
reeds klaar is om een karakter te 
ontvangen. 

CNVCHR 

###### 

Het adres waar deze subroutine 
moet aangeroepen worden is &HAB. 
Deze subroutine zet de karakter 
code om in het nummer dat het 
representeert in de video display 
processor. Voor de karakter codes 
32 to 255 zijn deze dezelfde als 
het pati'oon nummer van dit 
karakter. De karakter codes 0 tot 
31 echter zijn besturings codes. 
De patroon codes 0 to 31 
representeren echter de karakters 
die tevoorschijn komen door de 
GRAPH toets in te drukken. Deze 
karakters hebben twee karakter 
codes. Dit zijn besturings code 1 
gevolgd door een getal tussen 64 
en 95. 

INPUT PARAMETERS’ De accumulator 
moet de karakter code bevatten 
die moet omgezet worden. 

OUTPUT PARAMETERS; Bij deze 
subroutine zijn er vier mogelijke 
verschillende soorten van output. 


A; Als de geheugenplaats GRPHED 
gelijk is aan 0 en de accumulator 
bevat besturings code 1 dan word 
de accumulator niet verandert 
maar de geheugenplaats GRPHED 
word op 1 gezet en de CARRY en 
ZERRO flags worden gereset. 

B; Als de geheugenplaats GRPHED 
gelijk is aan nul en de 
accumulator heeft gelijk welke 
waarde anders dan 1 dan worden de 
CARRY en de ZERRO flags gezet. 

C; Als de geheugenplaats GRPHED 
een getal bevat anders dan 0 en 
de accumulator bevat een getal 
tussen 64 en 95 dan zal de 
accumulator vermindert worden met 
64, de geheugenplaats GRPHED zal 
op 0 gezet worden, de ZERRO flag 
zal gereset worden en de CARRY 
flag zal gezet worden. 

D; Als de geheugenplaats GRPHED 
een getal bevat anders dan 0 en 
de accumulator bevat een getal 
kleiner dan 64 of groter dan 95 
dan wordt GRPHED op nul gezet, de 
accumulator behoud zijn 
oorspronkelijke waarde en de 
ZERRO en CARRY flags worden 
gezet. 

STAND VAN DE REGISTERS; De enige 
register die van waarde kan 
veranderen is de accumulator. De 
flags en de geheugenplaats GRPHED 
kunnen eveneens verandert zijn. 
Het adres ven de geheugenplaats 
GRPHED is &HFCA6. 

PINLIN 

###### 

Het adres waar deze subroutine 
moet aangeroepen worden is &HAE 
Deze subroutine doet juist het 
zelfde als de subroutine ”INLIN”. 
Het enige verschil is dat als de 
computer zich in automatische 
lijnnummering bevind het 
indrukken van CCTRL-UI het 
lijnnummer niet zal wissen. 

INPUT PARAMETERS; Bij deze 
subroutine worden geen input 
parameters verwacht. 

OUTPUT PARAMETERS; Het register 
HL zal na het volledig uitvoeren 
van deze subroutine wijzen naar 
het adres juist onder het eerste 
karakter in de buffer en de CARRY 
flag wordt gezet als [CTRL-STQP] 
ingedrukt werd. 



STAND VAN DE REGISTERS; De 
registers HL, DE, BC en AF kunnen 
door het uitvoeren van deze 
subroutine in waarde verandert 
zij n. 

INLIN 

##### 

Het adres waar deze subroutine 
moet aangeroepen worden is &HB1. 
Deze subroutine word gebruikt om 
een ganse lijn input aan te 
nemen, de karakters op het scherm 
te printen en deze in een buffer 
te plaatsen tot C RETURN] of 
CCTRL-STOP] ingedrukt worden, 

INPUT PARAMETERS; Bij deze 
subroutine worden geen input 
parameters verwacht. 

OUTPUT PARAMETERS; Het register 
HL zal na. het volledig uitvoeren 
van deze subroutine wijzen naar 
het adres j uist onder het eerste 
karakter in de buffer en de CARRY 
flag wordt gezet als CCTRL-STOP] 
ingedrukt werd. 

STAND VAN DE REGISTERS; De 
registers HL, DE, BC en AF kunnen 
door het uitvoeren van deze 
subroutine in waarde verandert 
zij n. 

QUINLIN 

####### 

Het adres waar deze subroutine 
moet aangeroepen worden is &HB4. 

Deze subroutine is volledig 
gelijk aan de subroutine "INLIN” 
met dat verschil dat er eerst een 
vraagteken op het scherm 
geplaatst word. (Deze subroutine 
word door de rom gebruikt bij de 
lnstruktie INPUT!) 

INPUT PARAMETERS; Bij deze 
subroutine worden geen input 
parameters verwacht. 

OUTPUT PARAMETERS; Het register 
HL zal na het volledig uitvoeren 
van deze subroutine wijzen naar 
het adres juist onder het eerste 
karakter in de buffer en de CARRY 
flag wordt gezet als CCTRL-STOP] 
ingedrukt werd. 


STAND VAN DE REGISTERS; De 
registers HL, DE, BC en AF kunnen 
door het uitvoeren van deze 
subroutine in waarde verandert 
zijn. 

BREAKX 

###### 

Het adres waar deze subroutine 
moet aangeroepen worden is &HB7. 
Deze subroutine kijkt als de 
CCTRL-STOP] toetsen zijn 
ingedrukt. 

INPUT PARAMETERS; Bij deze 
subroutine worden geen input 
parameters verwacht. 

OUTPUT PARAMETERS; Als de 
CCTRL-STOP] toetsen ingedrukt 
waren dan word de CARRY flag 
gezet. Als de CCTRL-STOP] toetsen 
niet ingedrukt waren word de 
CARRY flag gereset. 

STAND VAN DE REGISTERS; De enige 
register die van waarde kan 
verandert zijn is de accumulator. 
De flags kunnen eveneens 
verandert zijn na uitvoering van 
deze subroutine. 

Deze subroutine hoeft enkel 
gebruikt worden wanneer interupts 
niet mogelijk gemaakt zijn. 

ISCNTC 
###### 

Het adres waar deze subroutine 
moet aangeroepen worden is &HBA 
Deze subroutine kijkt als de 
CSTOP] toets is ingedrukt. Is de 
stop toets ingedrukt dan wacht 
deze subroutine tot de CSTOP] 
toets terug ingedrukt word of tot 
de CCTRL-STOP] toetsen ingedrukt 
zijn. als de CCTRL-STOP] toetsen 
zijn ingedrukt gaat de computer 
naar de BREAK toestand. Dit wil 
zeggen; Het scherm gaat over in 
een tekst mode en springt terug 
naar BASIC. 

Als de toetsen CCTRL-STOP] of 
CSTOP] niet ingedrukt zijn dan 
gebeurt er niets. 

INPUT PARAMETERS; Bij deze 
subroutine worden geen input 
parameters verwacht. 

OUTPUT PARAMETERS; De 
geheugenplaats INTFLG zal de 
waarde 3 bevatten als de toetsen 
CCTRL-STOP] ingedrukt waren. De 
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geheugenplaats INTFLG zal de 
waarde 4 bevatten als de [STOP] 
toets Ingedrukt was. 

STAND VAN DE REGISTERS; De enige 
register die van waarde kan 
verandert zijn is de accumulator. 
De flags kunnen eveneens 
verandert zijn evenals de 
gehuegenplaatsen INTFLG en 
KILBUF. 

De geheugenplaats INTFLG staat op 
adres &HFC9B 

OPMERKING; Interupts moeten 
moge lijk gemaakt zijn om deze 
subroutine aan te kunnen roepen. 

CKCNTC 

###### 


De geheugenplaatsen MUSICF, 
PLYCNT,VCBA tot VCBA+4.VCBB tot 
VCBB+4, VCBC ‘tot VCBC+4 kunnen 
door het uitvoeren van deze 
subroutine van inhoud verandert 
zij n. 

OPMERKING; Door het uitvoeren van 
deze subroutine word de sound 
generator volledig gereset. 

&&&&& 


Dit was het dan voor deze keer. 

In het volgende artikel zal ik 
verder gaan met het bespreken van 
de BIOS subroutines voor het 
toetsenbord, de printer en de 
tekst schermen. 


Het adres waar deze subroutine 
moet aangeroepen worden is &HBD. 
Deze subroutine doet juist het 
zelfde als de subroutine "ISCNTC” 
doch deze subroutine is een 
ietsje trager. 

INPUT PARAMETERS; Bij deze 
subroutine worden geen input 
parameters verwacht. 

OUTPUT PARAMETERS; Bij deze 
subroutine worden er geen output 
parameters gegeven. 

STAND VAN DE REGISTERS 
De enige register die verandert 
kan zijn is de accumulator. De 
andere registers behouden hun 
oorspronkelijke waarde. De flags 
kunnen verandert zijn na het 
uitvoeren van deze subroutine. 

BEEP 

#### 

Het adres waar deze subroutine 
moet aangeroepen worden is &HC0. 
Deze subroutine geeft, zoals de 
naam reeds zegt, een beepje. 

INPUT PARAMETERS; Bij deze 
subroutine worden geen input 
parameters verwacht. 

OUTPUT PARAMETERS; Bij deze 
subroutine worden geen output 
parameters gegeven. 

STAND VAN DE REGISTERS; De 
registers HL, DE, BC en AF kunnen 
door het uitvoeren van deze 
subroutine in waarde verandert 
zij n. 


Buysse M. 


TEKST DUBBEL - TWEEDE SET HOODFLETTERS 

DATA 132,151,141,139,140,148,129,177,161, 
145,179,181,230,164,162,163,131,147,137, 
150,130,149,136,138,160,133 

FOR AS=65 TO 90 
READ CO 

AS=AS *8+BASE(7) 

C0=C0*8+BASE(7) 

FOR Q=0 TO 7 

VP0KE (CO+Q),VPEEK(AS+Q) 

NEXT Q,AS 
RETURN 


Wanneer, in een programma, de bijzondere 
leestekens tussen ASCII 129 en ASCII 230 
niet gebruikt worden kan, met bovenstaande 
routine, in dit bereik, een tweede set 
hoofdletters gemaakt worden. De data zorgt 
er voor dat alles op de goede plaats 
terecht komt. Hierdoor kunnen de tekens 
uit de tweede set, simpelweg door de des¬ 
betreffende toets in te drukken, ingetikt 
worden. (In screen 1.) 

Door nu, met de kleurdefinitie routine, de 
groepen 16 t/m 28 van een andere kleur te 
voorzien kunnen b.v. gekleurde koppen 
tekst direkt in het programma ingetikt 
worden. Let wel op dat de capslock toets 
niet ingedrukt is. 

QUICK SPRITE 

Het definiëren van sprites is met de 
hierboven besproken methode weliswaar 
makkelijker geworden maar het kan nog 
eenvoudiger! 

In de karakterset van de MSX machines zijn 

namelijk al 256 van deze patronen -kant en 
klaar- voorradig. Het enige dat moet 
gebeuren is het kopieeren van deze 
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patronen naar de sprite mappen en dat kan 
met de onderstaande routine die als volgt 
wordt gebruikt: 

Variabele SN krijgt de waarde van de te 
definiëren sprite en variabele AS krijgt 
de waarde van het ASCII code teken, van 
welke we het patroon willen kopieeren. Dan 
springen we naar de subroutine en voila, 
de computer doet de rest. 

B.v.: SN=1:AS=14:GOSUB (routine) geeft 

sprite nr.1 de vorm van de muzieknoot 
CHR$(14). 

De waardes, die voor B ingevuld moeten 
worden, zijn, bij gebruik van: 

SCREEN1 B= 9 en voor C, C=7 
SCREEN3 B=19 en voor C, C=17 

Routine: 

SN=SN*8+BASE(B) 

AS=AS*8+BASE(C) 

VPOKE(SN+I ),VPEEK(AS+I) 

NEXT I 
RETURN 

TEKEN-KLEUREN HERDEFINIËREN 

TG = nr. van tekenset 
VK = nr. voorgrondkleur 
AK = nr. achtergrondkleur 

C=VK*16+AK 
CS=BASE(6)+TG 
VPOKE(CS,C 
RETURN 

Met het bovenstaande programmaatje (routi¬ 
ne) wordt het mogelijk tekst en grafische 
tekens in diverse kleuren op een scherm 
(SCREEN1) te gebruiken. 

Het is b.v. mogeljk de letters en de 
cijfers een andere kleur te geven of -om 
samen met de text—dubbel routine— twee 
kleuren tekst te gebruiken. Ook is het 
raogelijk grote vlakken snel van kleur te 
laten veranderen. (Dit werkt vele malen 
sneller dan PAINT of LINE,BF in SCREEN2). 

Het tekensetnummer staat voor een groep 
van 8 tekens waarvan de eerste de ASCII 
code heeft die gelijk is aan tekenset 
nr.x8. 

B. v. tekenset 8 bevat de tekens 8*8=64 t/m 
64+7=71 (ABCDEFG + het 'apestaartje'). 

Dus: 

VK=15:AK=7 
FOR TG=8 TO 11 
GOSUB (routine) 

NEXT TG 

stelt alle hoofdletters (ook die, welke al 
op het scherm staan) in de kleur wit op 
rood. 

LET OP!! 

De lege plaatsen op het scherm zijn gevuld 
met spaties. Dus als de achtergrondkleur 
van groep 4 verandert zullen alle lege 
plaatsen -op het scherm- ook van kleur 
veranderen. 

C. C.R. Poirot. 


PLAY 

Een van de mooiste mogelijkheden van MSX- 
BASIC is de eenvoud waarmee muziekstukken 
in de computer te stoppen zijn. Door de 
PLAY - instructie verandert de computer in 
een soort electronische piano. 

In gronde genomen ziet een piano er zo 
uit: 

Elke witte toets heeft een naam, van A t/m 
G, overeenkomstig de noten A t/m G. De 
zwarte toetsen geven een verhoging -of 
verlaging- van een halve toon en hebben 
dus ook namen als A+,A-,G+ enz. Tussen de 
D en de E ligt b.v. een zwarte toets met 
de naam D+, maar deze toets heet ook E-, 
want ze ligt een halve toon lager dan de D 
en weer een halve toon hoger ligt de E. 
Omdat bij een piano niet op elke witte 
toets eem zwarte volgt, zijn combinaties 
als E+ en B+ helaas onmogelijk; evanals b. 
v. F- en C-. 

De pianotoetsen zijn ingedeeld in groepjes 
van 7 toetsen. Deze groepjes zijn 
genummerd van 1 t/m 8; van lage tonen naar 
hoge tonen. Een zo'n groepje heet een 
octaaf. De groepjes bestaan uit de 
volgende tonen: CDEFGABC. Voor de 
pianist maakt deze —nogal vreemde— 
volgorde niets uit maar de MSX-er kan zich 
nogal makkelijk vergissen; b.v. bij het 
maken van een toonladder. Deze moet dus 
beginnen bij de C en eindigen bij de 1 
octaaf hoger gelegen C. Met de 
PLAY-instructie gaat dat als volgt: 

Na PLAY moeten aanhalingstekens worden 
gebruikt want alles, wat er gePLAYed moet 
worden, hoort in een STRING te staan. Het 
nummer van de octaaf is aan te geven door 
een cijfer (1 t/m 8); waarbij de 1 voor de 
laagste- en de 8 voor de hoogste octaaf 
staat• Daarna kunnen de te spelen tonen 
°pg e geven worden met behulp van de daarbij 
behorende letters. De MSX-er hoeft alleen 
maar het volgende, gevolgd door RETURN, in 
te typen: 

PLAY "04 CDEFGAB 05 C” 

Om het geheel iets lager te horen kunnen 
de 4 en de 5 -na de O's- in b.v. een 2 en 
een 3 veranderd worden. Een toonladder, 
gevolgd door een toonladder achterstevo¬ 
ren, vraagt om nog meer gedoe met octaven: 

PLAY "04 CDEFGAB 05 C 0C BAGFEDC" 

Om gelijk maar te bewijzen dat D+ en E- 
dezelfde noot geven zal de volgende 
opdracht dan ook slecht l toon geven: 

PLAY "D+E-" 

Natuurlijk zijn er nog meer dingen 
mogelijk met PLAY. De lengte van de tonen 
gebeurt met de letter L; gevolgd door een 
getal van 1 tm 64. I staat voor een hele 
noot, 2 voor een halve, 3 voor een derde 
enz. enz. 
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Als de lengte niet wordt opgegeven gaat de 
computer uit van L4 (want 1/4 noot is 1 
tel). 

De lengte mag ook direkt achter de letter 
van de toon worden gezet; PLAY"L2C” is 
hetzelfde als "PLAY"C2". 

Als achter de letter van de noot een punt 
wordt gezet dan neemt de lengte toe met de 
helft. PLAY"L4C." duurt dus 1 1/2 tel; 
PLAY L4C... duurt 1 1/2 + de helft ervan 
+daar de helft van. D.i. 12/8+6/8+9/8=27/8 
maal zolang als PLAY"L4C". 

Ook het tempo kan worden gekozen. Dit 
gebeurt met de letter T, gevolgd door een 
getal (min. 32 en max. 255). Dit getal 
geeft het aantal 1/4 noten per minuut aan, 
dus met lengte 4 en tempo 60 duurt elke 
toon 1 seconde. Probeer maar uit met: 

PLAY "L4T60A" 

Natuurlijk is het ook mogelijk om met 
verschillende volumes te spelen, wat wordt 
aangegeven met de letter V, gevolgd door 
een getal van 0 t/m 15. 15 is het hardst; 
0 is het zachts. 

PLAY"V15L4T60A" voor een harde A 
PLAY"V6 L4T60A" voor een zachte A 

Een pauze is in te lassen met de leter R 
(rust), gevolgd door een cijfer tussen 1 
en 64. 1 geeft een volle rust, 2 een 
halve, 3 een derde enz. enz. 

PLAY"04T200 CDEFGAB 05CR2T100 C04 BAGFEDC" 
geeft eerst een snelle toonladder omhoog, 
dan een pauze, en dan gaan de tonen weer 
omlaag. 

Verder hebben alle tonen ook nog een 
nummer van 0 t/m 95. Om een bepaald nummer 
te horen moet eerst een N (van nummer) 
worden opgegeven, gevolgd door een getal. 
De A, van de 4e octaaf heeft b.v. nummer 
45, de B van de 4e octaaf heeft nummer 47 
en de A van de 5e octaaf numer 57. PLAY”04 
A N45 B N47 05A N57" laat drie lange tonen 
horen. Deze manier is overigens zeer 
omslachtig en is daarom alleen handig voor 
toonladders van heel laag naar heel hoog; 
bijvoorbeeld: 

FOR LEX=1 TO 95:PLAY"T250L64 N=LEX;":NEXT 

Het is ook mogelijk de golfvorm van de 
tonen te kiezen; om hiermee verschillende 
instrumenten na te doen. Dit gebeurt door 
een S(sound), gevolgd door een getal van 0 
t/m 15. Deze getalen staan voor de 
golfvormen die in de tabel staan in de MSX 
Gids nr. 2 op pag. 22. De tijd van deze 
golfbeweging is in te stellen met behulp 
van de letter M (modulatie), gevolgd door 
een getal van 1 t/m 65535. Hierbij zorgt 
de 1 dat de golf supersnel voorbij komt 
rollen en 60000 zorgt voor een erg trage 
golf. Met erg lage waarden zijn trouwens 
rare geluiden te maken. Probeer het 
volgende maar eens: 



PLAY"S9 M3000 04 CDEFGAB 
PLAY"S11M1000 04 CDEFGAB 
PLAY"S8 M30 04 CDEFGAB 


um op meeraere Kanalen tegelijk te spelen 
moeten er komma's tussen de strings staan. 
B.v. PLAY”04T200 CDEFGAB","04T200 BAGFEDC" 


Lex v.d. Hondel 


HOE GEBRUIK IK 
IDE VIDEO RAM 

Hoe kan ik de VIDEO RAM goed gebruiken? 
Ik heb toch de talrijke basic 
instrukties? 

Dit zijn zo van die vragen waar veel 
amateur-programeurs mee zitten. Daarom 
dit artikel waar ik zo duidelijk 
mogelijk in zal trachten uit te leggen 
waarom het rechtstreeks programmeren van 
de VIDEO RAM soms noodzakelijk is. En 
vooral hoe dit kan gebeuren. 

De eerste reden waarom veel mensen 
zullen beginnen aan de VIDEO RAM is dat 
het zander de grondige kennis van de 
VIDEO RAM het praktis onmogelijk is een 
machine taal programma te maken. Vooral 
eem machine taal programma dat werkt met 
een van de grafische schermen is zonder 
de kennis van de VIDEO RAM niet te 
maken. In machine taal beschikt men 
namelijk niet over instrukties zoals 
LINE en CIRCLE en dergelijke meer. 

De tweede reden waarom het rechtstreeks 
programeren van de VIDEO RAM soms nuttig 
is, is dat sommige dingen veel sneller 
gaan en minder geheugen vragen. 


TEKENEN IN SCREEN 2. 

Een van de nogal ingewikkelde dingen in 
de VIDEO RAM is het tekenen in screen 2. 
In screen 2 beschikt men namelijk over 
een bitmap geheugen en een kleuren 
geheugen. Deze twee geheugenblokken zijn 
elk 6144 bytes lang. 

Dat wil zeggen dat hoewel er ± 49000 
pixels op het scherm staan er slechts 
6144 bytes voor het bitmapgeheugen 
gereserveerd zijn. Met een beetje 
rekenen komt men dan tot het besluit dat 
er voor elke 8 pixels 1 byte geheugen 
gereserveerd is. Daar er in elke byte 8 
bits zijn is de logische konklusie'dat 
elke bit 1 pixel bestuurt. Dat wil 
zeggen dat de bit ofwel op 0 gezet wordt 
en daarom zal hij de achtergrondkleur 
krijgen ofwel op 1 gezet wordt en 
daardoor krijgt hij de voorgrondkleur. 

En zo zijn we dan ook bij het 
kleurgeheugen aangekomen. Daar het 
kleurgeheugen evengroot is als het 
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bitmapgeheugen kan men per acht pixels 
twee kleuren aangeven. Dit zijn de 
gewenste voorgrondkleur en de gewenste 
aclvtergrondkleur. 

U zult mischien denken twee kleuren met 
1 byte hoe gaat dat? Dit is zeer 
eenvoudig daar er slechts keuze is 
tussen 16 kleuren. Dat wil zeggen dat in 
de hoogste 4 bits de voorgrondkleur zit 
en in de laagste 4 bits de 
achtergrondkleur. 

Om gemakkelijk deze twee kleuren te 
berekenen hoeft men niet noodzakelijk 
met binaire cijfers te werken dit kan 
ook eenvoudig berekend worden met 
volgende formule; 

voorgrondkleur maal 16 plus 
achtergrondkleur. 

De plaatsen waar de acht pixels liggen 
van elke byte is nogal ingewikkeld. 

De eerste acht horizontaal naast elkaar 
liggende pixels komen overeen met de 
eerste byte van het bitmapgeheugen. De 
acht daaronder liggende bytes komen 
overeen met de tweede byte. Dit tot de 
achtste byte. De negende byte echter 
komt overeen met de acht horizontaal 
naast elkaar liggende pixels die naast 
de eerste acht pixels liggen. De 
volgende byte komt overeen met de acht 
pixels die onder de vorige liggen. 
Tekening 1 geeft hierbij wat meer 
duidelijkheid. 

De bytes van het kleurgeheugen komen 
overeen met die van het bitmapgeheugen. 
Dat wil zeggen dat de eerste byte van 
het kleurgeheugen correspondeerd met de 
eerste byte van het bitmapgeheugen, de 
tweede byte van het kleurgeheugen 
correspondeert met de tweede byte van 
het bitmapgeheugen enz... 

Door onderstaand programmat in te tikken 
zal u waarschijnlijk iets meer begrijpen 
van hoe het bitmapgeheugen en het 
kleurgeheugen v/erken. 

10 SCREEN 2 

20 FOR 1= &H2000 TO &H3800 
30 VPOKE 1,27 
40 NEXT I 

50 FOR 1= &H0 TO &H17F8 STEP 8 
60 VPOKE I,16 
70 VPOKE 1+1,56 
80 VPOKE 1+2,56 
90 VPOKE 1+3,16 
100 VPOKE 1+4,124 
110 VPOKE 1+5,16 
120 VPOKE 1+6,40 
130 VPOKE 1+7,108 
140 NEXT I 


Dit klein programma tekent steeds meer 
mannetjes op het scherm door het 
rechtstreeks inschrijven van de VIDEO 
RAK, 

Op de lijnen 20 tot en met 40 wordt het 
kleurengeheugen van het volledige scherm 
ingeschreven, het krijgt zwart als 
voorgrondkleur en geel als 
achtergrondkleur. 

Op de lijnen 50 tot en met 140 wordt 
door middel van een fornext-lus het 
bitmapgeheugen ingeschreven. 

Men moet er echter viel rekening mee 
houden dat als men het programma start 
het een heel poosje duurt voor men iets 
zal zien. Daar het kleurgeheugen op de 
goede kleur zetten nogal lang duurt! 

OPMERKING: 

Als men nu bijvoorbeeld een tekening wil 
maken moet men behalve het inschrijven 
van het bitmapgeheugen ook het 
kleurgeheugen ingeschrijven, Of als men 
bijvoorbeeld een tekening naar de RAM 
<niet de VIDEO RAM) wil overschrijven om 
eventueel deze daarna op cassette te 
laden mag men absoluut het kleurgeheugen 
niet vergeten, Het kleurgeheugen moet 
dus absoluut ook ingeschreven worden 
daar men anders niet veel van de 
tekening te zien krijgt. 


SPRITE’S BESTUREN. 

Zoals u wel dacht is het magelijk door 
middel van het rechtstreeks inschrijven 
van de VIDEO--RAM mogelijk sprite’s te 
definiëren en te besturen. Hoewel het 
iets minder eenvoudig is de sprite’s te 
besturen door middel van het 
rechtstreeks inschrijven van de VIDEO 
RAM is het resultaat veel beter. De 
uitvoering van de bewegingen die men de 
sprite wil laten doen gebeurt namelijk 
veel sneller dan met de gewone 
instruktie PUT SPRITE, 

Doch om met het begin te beginnen zal ik 
eerst trachten uit te leggen hoe men de 
sprite's definieert. 

In de VIDEO RAM is er een geheugenblok 
” SPRITEPATRONEN-GENERATOR” genoemd. De 
methode om de getallen die men in dit 
geheugenblok moet schrijven te bekomen 

is volledig gelijk als bij het normale 
definiëren van de sprite’s. Als het om 
kleine sprite’s gaat (acht pixels op 
acht pixels) dan wordt de 
spritepatronen-generator in 256 blokjes 
van elk acht byte’s verdeeld, zodat in 
het eerste blokje van acht byte’s de 
data’s van de eerste sprite geschreven 
kunnen worden, in het tweede blokje van 
acht byte’s kunnen de data’s van de 
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tweede sprite geschreven worden enz... 
Als het gaat om grote sprite’s (zestien 
pixels op zestien pixels) dan wordt de 
spritepatronen-generator in 64 blokjes 
van elk 32 byte’s verdeeld. Zodat in het 
eerste blokje van 32 byte’s de data’s 
van de eerste sprite geschreven kunnen 
warden, in het tweede blokje van 32 
byte’s kunnen de data's van de tweede 
sprite geschreven worden enz... 

Om de sprite’s te besturen is er in de 
VIDEO RAM het SPRITEKENMERKEN GEHEUGEN. 
In dit geheugenblok bevind zich al de 
informatie van de sprite’s, de kleur, de 
X as, de Y as en het sprite nummer. In 
dit geheugenblok is er slechts plaats 
voor 32 sprite’s. Daardoor kan men 
slechts 32 sprite’s tegelijk op het 
scherm plaatsen. 

Het spritekenmerk-geheugen is in 32 
kleine blokjes van 4 byte's verdeeld. In 
de eerste byte van elk blokje kan de Y 
waarde van de desbetreffende sprite 
geschreven worden. In de tweede byte van 
elk blokje kan de X waarde van de 
desbetreffende sprite geschreven worden. 
In de derde byte van elk blokje kan de 
kleur van de desbetreffende sprite 
geschreven worden. En in de vierde byte 
van elk blokje tenslotte kan het sprite 
nummer van de desbetreffende sprite 
geschreven worden. 

In het onderstaande programma wordt nog 
eens duidelijk het verschil in snelheid 
tussen het rechtstreeks inschrijven van 
de VIDEO RAM en de gewone instruktie PUT 
SPRITE getoond. 

Martin Buysse 


10 SCREEN 2 

20 SPRITES(0)=CHR$ <255)+CHR$(255) 
30 PUT SPRITE0,(0,50),15,0 
40 TIME=0 
50 FQRI=1TQ255 
60 VPOKE &H1B01,I 
70 NEXT I 
80 TR=TIME 
90 FQRI=1TQ50 
100 NEXTI 

110 PUT SPRITE0,(0,50),15,0 

120 TIME=0 

130 FQRI=1T0255 

140 PUT SPRITE0,(1,50),15,0 

150 NEXT I 

160 TT=TIME 

170 SCREEN0 

180 PRINT TR;TT 


ON KEY GOSUB 


ON KEY GOSUB nn,nn 

Het gebruik van de F-toetsen kan een 
programma een duidelijke opzet geven en 
het is een groot gemak dat de MSX 
computer op dit punt goed doordacht is 
opgezet. 

Met de MSX kan met die vijf toetsjes 
bovenaan het toetsenbord wonderlijk veel 
worden gedaan. Tijdens het invoeren van 
gegevens kan een F-toets worden 
gebruikt, tenminsste als het programma 
daarin voorziet, om series letters die 
vaak voorkomen met een toetsaanslag in 
te voeren. Het is daarnaast ook nog 
mogelijk om de F-toetsen voor een 
speciaal doel te gebruiken, bijvoorbeeld 
F1 = Hulpmenu, F2 = Tekst uitlijnen, F3 
= regel wissen. 

KEY LIST 

Als bovenstaand commando wordt in¬ 
getoetst tijdens het programmeren kan de 
programmeur zien welke strings er op dat 
moment onder de toetsen staan. 

KEY 1,"GOEDENDAG !" 

Zo plaatst U een andere string onder de 
eerste F-toets. Het getal mag variëren 
tussen 1 en 10. De lengte van de string 
raag totaal 15 tekens zijn. 

KEY ON 

Is het commando om op de onderste regel 
van het beeld de eerste vijf functies te 
tonen, en als shift wordt ingedrukt dan 
ziet men de laatste vijf functies. Met 
KEY OFF verdwijnt deze melding, en is de 
onderste regel weer bruikbaar voor 
andere zaken. 

Dit bovenstaande is niet het gebruik van 
de F-toetsen als functietoets maar als 
"eentoets"-invoer. In het volgende 
voorbeeld programmaatje is zowel dit als 
de mogelijkheid van ON KEY GOSUB 
verwerkt. 


10 REM TESTPROGRAMMA 
20 ON KEY GOSUB 1010,1020,1030,1040, 
1050,1060,1070,1080,1090,1100 
30 KEY 1,"HALLO " 

40 KEY 2,"HOE GAAT HET " 

50 KEY 3,"MET JOU, MET " 

60 KEY 4,"MIJ GAAT HET " 

70 KEY 5-, "GOED, EN DAT " 

80 KEY 6,"IS HET VOOR- " 

90 KEY 7 "NAAMSTE ! " 





200 C0L0R 1,15: CLS 

210 PRINT A: INPUT "VOER IETS IN" A$ 

220 GOTO 210 

1000 REM SUBROUTINES 
1010 C=C+1: IF C>15 THEN C=1 
1015 COLOR C,15: CLS: PRINT A$: 
RETURN 

1020 A=12: RETURN 

1030 A=39: RETURN 

1040 A=99: RETURN 

1050 BEEP: BEEP: RETURN 

1060 CLS: PRINT A$: RETURN 

1070 A=6: RETURN 

1080 A=0: RETURN 

1090 KEY ON: RETURN 

1100 KEY OFF: RETURN 


Dat is en groot stuk om in te voeren 
alleen maar voor een voorbeeld maar doe 
het toch maar even. RUN het en merk dat 
er iets mist. Het is namelijk zo dat 
niet alleen aan het begin van het 
programma opgedragen moet worden om, als 
een toets wordt ingedrukt, naar de 
bepaalde regel te gaan maar ook: 

100 KEY (1) ON 

Voeg dit toe, en merk op dat nu de 
bovenste negen toetsen zich gedragen als 
toets met string tekens er onder, en 
alleen toets 1 als een F—toets! 

100 F0R A=1 TO 10: KEY (A) ON: NEXT 

RUN het programmaatje opnieuw en merk 
dan dat de stcings zich niet meer laten 
oproepen, maar wel de subroutines. 

Als er handig gebruik gemaakt wordt van 
KEY (nummer) ON en KEY (nummer) OFF, dan 
zal de gebruiker de indruk krijgen dat 
net wel mogelijk is om zowel functies of 
subroutines aan te roepen als strings 
met de F-toetsen in te voeren. 

KEY ON is niet hetzelfde als KEY 
(nummer) ON !, Met KEY ON/OFF wordt al 
of niet getoont welke strings op dat 
moment onder de F-toetsen zitten en dat 
geldt alleen voor SCREEN 0 en 1. Op 

SCREEN 2 en SCREEN 3 wordt niets 
getoond . 

Lastig wordt het als d.m.v. KEY OFF en 
KEY (nummer) OFF zowel de melding onder 
aan het beeld verwijderd wordt en ook de 
GOSUB-functie wordt uitgeschakeld en 
onder de toetsen nog wel een string zit! 
Als tijdens een INPUT of INKEY$ naar 
iets gevraagd wordt en men drukt op de 
F-toets dan wordt de inhoud van string 
inge-voerd. Het is daarom nuttig om twee 
subroutines te maken: een voor de tekst 
die voor het programma belangrijk is en 
een met enkel lege strings. Dan laat U 
het programma door middel van een G0SUB 
voor de keuze de tekst onder in het 
beeld zetten en na de keuze zet U lege 
string onder in beeld en als per ongeluk 



de F toetsen worden ingedrukt gebeurt er 
niets. 

Als de routines die via de F-toetsen 
worden aangeroepen zoveel tijd kosten 
dan er tijdens het doorlopen ervan weer 
op een F-toets kan worden gedrukt KAN de 
routine opnieuw wordt aangeroepen! Dit 
kan heel erg lastig uitpakken. 
Bijvoorbeeld F3 = regel verwijderen, en 
de routine laat even op zich wachten, en 
U drukt twee maal op F3, dan bent U twee 
regels kwijt! 

Daarvoor zijn twee oplossingen mogelijk, 
de eerste is aan het begin van de 
subroutine een andere subroutine aan 
te roepen waanneer alle ON KEY G0SUB 
worden uitgeschakeld. 

Dit is zo'n subroutine: 

1010 G0SUB 2000 

1012 PRINT "DRUK EENS OP EEN 

FUNCTIE-TOETS !" 

1014 PRINT "(SPATIEBALK = TERUG)” 

1016 A$=INKEY$: IF A$=CHR$(32) GOTO 
1018 ELSE GOTO L012 
1018 G0SUB 3000: RETURN 


2000 F0R A=1 T0 10: KEY (A) OFF* 

NEXT A: RETURN 

3000 F0R A=1 T0 10: KEY (A) ON: NEXT 
A: RETURN 

Nu is het niet mogelijk om tijdens het 
doorlopen van de ene subroutine weer 
naar een andere te springen. Dat kan pas 
als er terug gekeerd wordt. Het is 
mogelijk om wel de toetsindruk te 
signaleren, maar pas opniew te GOSUBben 
(nieuw woord!) als er is geRETURd. Dit 
wordt gedaan met ON KEY (nummer) STOP 

2000 F0R A=1 T0 10: KEY (A) ON: NEXT 
A: RETURN 

Wat ik U nu heb uitgelegd staat 
rechtlijnig tegenover dat wat in het 
standaardwerk voor de MSX staat vermeld. 
Officieel behoort de MSX tijdens de "ON 
KEY"-G0SUB routine zelf een KEY (nummer) 
STOP te genereren, echter er is mij 
bekend dat niet elke computer dit doet! 
En dan ook nog niet eens altijd! Maar de 
computer een opdracht geven iets te doen 
w<it deze vanzelf had moeten doen kan 
nooit erg wezen. Dus aan het begin van 
een ON KEY — subroutine gewoon altijd 
een KEY (nummer) STOP/OFF geven, en net 
voor RETURN een (eventueel, hoeft niet) 
KEY (nummer) ON. 
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MACHINETAAL OP DE MSX 


deel 3 


In de vorige les bespraken we de binaire 
optelling in machinetaal (ADD, ADC ). Deze 
les vervolgen we met de andere reken¬ 
kundige instrukties die de Z80 in petto 
heeft 4 Daarna volgt een vrij taai en 
moeilijk gedeelte over 16-bits load- 
instrukties. Maar troost U, wanneer U zich 
door deze zure appel heeft heengebeten, 
wordt het machinetaal-programmeren pas 
echt interessant. Met de kennis die we dan 
hebben kunnen we gebruik maken van 
machinetaal programma's die Microsoft voor 
ons in het ROM geheugen van de computer 
heeft geplaatst. Het is dan mogelijk om 
vanuit machinetaal het beeldscherm te 
vullen, het toetsenbord uit te lezen, de 
printer aan te sturen enz. enz. 

Vorige les bespraken we de 8-bits binaire 
optelling. Bij binair aftrekken gaan we op 
eenzelfde wijze te werk. 

Vb 1. In de accu worden de binaire getal¬ 
len 11010011 en 10001011 van elkaar 
afgetrokken. 

11010011 (D3 hex) 

10001010 (8A hex) 

- (- 

01001001 (49 hex) 

We gaan precies hetzelfde te werk als bij 
het van elkaar aftrekken van twee getallen 
in het decimale getalstelsel. Bij het 
vierde^bit krijgen we: 0-1. We lenen nu 
een 1 van het vijfde bit; deze is echter 
niet een factor tien, maar een factor twee 
hoger in waarde. We krijgen nu: 0+2-l=l. 

De accumulator kan een getal van 0 tot FF 
hex bevatten, maar heeft geen plaats voor 
een teken (soms wordt het achtse bit 

als tekenbit genomen, dit laten we nu 
buiten beschouwing). Wanneer het getal in 
de accu kleiner is dan het getal dat er 
van wordt afgetrokken gaat de accu via 0 
weer door naar FF (want de accu kan geen 
negatieve getallen bevatten). De carry- 
flag wordt geset om aan te geven dat het 
verkregen antwoord niet meer juist is. 

Vb 2, In de accu worden de getallen 
00110100 en 10000001 van elkaar 
getrokken: 

00110100 (34 hex) 

10000001 (81 hex) 

- (- 

10110011 (B3 hex) 

Het achtste bit moet een M 1 M lenen bij het 
negende bit om 0+2—1=1 te kunnen uit voe¬ 
ren, Dit negende bit is echter niet aanwe¬ 
zig, zodat de uitkomst foutief wordt. De 
carry-flag wordt daarom geset. 


De Z80 kent twee instrukties voor het 
binair aftrekken; SUB en SBC. Dit zijn de 
tegenhangers van ADD en ADC. Bij SUB wordt 
de inhoud van een register of 8-bits getal 
afgetrokken van de inhoud van de accu. Bij 
SBC wordt de inhoud van een register of 
een 8-bits getal en de carry-flag (die 0 

of 1 is) van de inhoud van de accu 

afgetrokken. De uitkomst wordt weer in de 
accu geplaatst. 

Vb. 91 SUB A,C ; reg A = reg A - reg C 

D651 SUB A,51 ; reg A = reg A - 51hex 

9C SBC A,H ; reg A = reg A - reg H 

-carry-flag 

DE12 SBC A,12 ; reg A = reg A - 12hex 

-carry-flag 

Wanneer U bij het uitgewerkte voorbeeld 
uit les 2 M 80 ADD A,B" vervangt door 

”90 SUB A,B”, kunt U de werking van de 
SUB instruktie zelf onderzoeken. Wanneer U 
in dit programma ”88 ADC A,B" vervangt 
door "98 SBC A,B” wordt, naar gelang de 
carry-flag geset is of niet, de inhoud van 
geheugenplaats E103 0 of FF. Bij ADC A,B 

was dit 0 of 1. Kunt U dit verklaren? 

Vaak doet zich de situatie voor dat we 
een register met 1 willen ophogen of ver¬ 
lagen, bijvoorbeeld wanneer het als teller 
dienst doet. We kunnen elk van de 8-bits 
registers met 1 ophogen met de instruktie 
INC (increment). 

Vb. IC INC E ; reg E = reg E 4* 1 

Met 1 verlagen wordt gedaan met de in¬ 
struktie DEC (decrement). 

Vb. 05 DEC B ; reg B = reg B - 1 

Omdat het rekenkundige instrukties zijn 
(net als ADD en SUB), wordt de zero-flag 
geset wanneer een register door de INC of 
DEC instruktie 0 geworden is, en de 
carry-flag bij een sprong van 0 naar FF of 
omgekeerd. 

Wanneer het een te grote beperking is dat 
een register slechts de getallen 0 tot FF 
kan bevatten, kan gebruik worden gemaakt 
van de 16-bits registers van de Z80 (het 
IX- en IY- register) of kunnen de regis¬ 
ters B, C, D, E, H en L worden samengeno¬ 
men tot registerparen BC, DE, en HL. Een 
16-bits register kan getallen van 0 tot 
FFFF (65535 dec) bevatten. 16-bits regis¬ 
ters kunnen bij elkaar worden opgeteld, 
van elkaar worden afgetrokken en gebruikt 
worden om een (16-bits) geheugenadres aan 
te wijzen waarnaar data moet worden 
geschreven of waarvan moet worden gelezen. 
Wanneer gebruik wordt gemaakt van het 
registerpaar BC, kunnen de registers D, E, 

H en L naar keuze als losse registers of 
als. registerparen worden gebruikt. De 
8-bits registers B en C gebruiken in de 
Z80 dezelfde geheugenplaatsen als het 
registerpaar BC. Het registerpaar BC en de 
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8 -t)it s registers B en C kunnen dus niet 
onafhankelijk van elkaar gebruikt worden. 

-r zijn bij 16-bits load instrukties drie 
typen te onderscheiden. Let U goed op dat 
U deze niet met elkaar verwart. Een hulp- 
hierbij is, dat U steeds wanneer U 
( ) ziet, dit vertaalt in "met de inhoud 
van . Dus (BC) wordt: 'met de inhoud van 
registerpaar BC" 

1 • *?en 16 bits register (zoals BC, DE, Hl, 
IX en IY) laden met een 16-bits getal 
vvoorgesteld door mn): LD rr ,mn 

Deze instruktie vertoont veel gelijkenis 
met de instruktie LD r,n (bijv LD C,20), 
alleen wordt in dit geval geen acht-bits 
getal in een acht-bits register geplaatst, 
maar gaat het om 16-bits getallen en 

7 sn^ eC j' ^ en b ypi- scb e eigenschap van de 
- u is, dat deze eerst de laagstwaardige 
acht bits (LSB = Least Significant Byte) 
mleest en daarna pas het hoogstwaardige 
gedeelte (MSB = Most Significant Byte). 
Dxt kwamen wij in les 2 ook tegen bii de 
instruktie: LD A,(mn). 


Vb. 018040 
DD211000 


LD BC.4080 
LD IX,0010 


2. De instruktie LD rr,(mn) is de 16-bits 
tegenhanger van LD A,(mn). Bij de in¬ 
struktie LD rr,(mn) wordt het 16-bits 
register gevuld met de inhoud van ge— 
heugenplaats ”mn" en "mn+1" (de inhoud van 
een geheugenplaats is een 8-bits getal, 
zodat de inhouden van twee geheugenplaat- 
sen nodig.zijn om een 16-bits register te 
vullen), "mn+1" is hier weer het MSB, "mn" 
het LSB. 

Vb. ED5B00E0 LD DE,(E000) ; registerpaar 
DE wordt gevuld met de in¬ 
houd van adres E000 en E001. 

3. De instruktie LD (mn),rr is het omge— 
keerde van de hierboven behandelde 
instruktie. Nu worden twee geheugenplaat- 
sen, nl "mn" en "mn+1" gevuld met resp. de 
laagste- en de hoogste 8 bits uit een 
io-bits register. 

Vb. FD2A1080 LD (8010),IY; geheugenplaats 
8010 wordt geladen met het 
LSB- en geheugenplaats 801A 
met het MSB van register IY. 

Een 16-bits register kan gebruikt worden 
om eeu adres aan te wijzen waarnaar data 
moet worden geschreven of data van moet 
worden gelezen; het wordt dan gebruikt als 
pointer . Twee speciale pointer-registers 
zijn we al tegengekomen: de programcounter 
v-ie. de volgende machinetaalinstruktie 
aanwijst) en de stackpointer (die de 
laatst toegevoegde informatie op het 
kladblok aanwijst). Doordat 16-bits regis¬ 
ters als pointer kunnen worden gebruikt is 
het mogelijk geheugenblokken te verplaat¬ 
sen te kopieeren in een ander geheugenge- 
bied of een geheugengebied eenvoudig met 
een getal te vullen. Van deze mogelijkheid 
van de Z80 wordt veel gebruik gemaakt, 
bijvoorbeeld in machinetaal tekstverwer¬ 
kers en databases. 


Vb. 3680 LD (HL),80 ; het register Hl 
wijst een geheugenadres aan, dit 
geheugenadres wordt gevuld met 
de data "80". 

0A LD A,(BC) ; reg A wordt ge¬ 

vuld met de data van het adres 
dat BC aanwijst. 


70 LD (HL),B 

reg B 50 
reg HL E000 


geheugen 


-ü 

—> 


XX 

BFFF 

50 

E000 

XX 

E001 


HL wijst geheugenplaats E000 aan. Deze 
geheugenplaats wordt gevuld met de in¬ 
houd van register B (50). 

De 16-bits register IX en IY hebben nog 
een extra, mogelijkheid wanneer zij als 
pointer dienst doen. Deze registers bevat¬ 
ten niet direct een geheugenadres dat moet 
worden aangewezen, maar de registerinhoud 
wordt eerst opgeteld bij een 8-bits getal 
d (displacement = verschuiving). 


Vb. DD7705 LD (IX+5),A 

reg A 30 —^ 

reg IX 8800 8800+5 -> 


geheugen 


XX 

8804 

30 

8805 

XX 

8806 


BiJ 16 bits rekenkundige bewerkingen kan 
de 8-bits accu niet meer dienst doen als 
rekenregister. De funktie wordt dan 
overgenomen door HL, IX en IY (alles wat 
met registerpaar HL kan, kan ook met IX en 
IY, de registerparen BC en DE hebben 
minder mogelijkheden). Verder komen de 

;cü= il: co2? telllng (ADD > ADC > en aftrekking 
(SUB, SBC) overeen met de gelijksoortige 

o bits instrukties. De 16—bits instrukties 
INC en DEC verschillen van de 8-bits equi¬ 
valenten doordat bij 16-bits INC en DEC 
instrukties geen vlaggen worden geset. 
Wordt bijv. register IX door INC IX opge¬ 
hoogd van FFFF naar 0000 dan reageert de 
Z-flag hier niet op! 

Machinetaal is, doordat geen gebruik 
wordt gemaakt van de interpreter, veel 
sneller dan Basic. Deze tijdwinst is voor¬ 
al merkbaar wanneer een bepaalde opdracht 
herhaald moet worden uitgevoerd. We kunnen 
iedere keer dat de opdracht wordt uitge— 
voerd een teller ophogen. Wanneer deze 
teller een bepaalde waarde bereikt wordt 
uit de lus gesprongen. 

De "normale" JP-instruktie (jump=sprong) 
instruktie is te vergelijken met GOTO in 
Basic, er wordt naar een geheugenadres ge¬ 
sprongen, waar de computer verder gaat met 
het lezen van machinetaal-instrukties. 

Vb. C300D0 JP D000 ; spring naar geheugen¬ 
adres D000 

If-then construkties uit Basic worden in 
machinetaal vervangen door : JP v, mn ; 
spring, als aan voorwaarde v is voldaan 
naar geheugenplaats mn. Zo^n voorwaarde 
waarop de Z80 kan testen is een vlag die 
geset of juist gereset moet zijn. 










Vb. C20080 JP NZ,8000 ; spring, als de Z- 
flag gereset is (NZ=non zero) 
naar geheugenadres 8000. 

CAFE90 JP Z,90FE ; sprong als Z=1 

DAAOAA JP C,A0AA ; sprong als C=1 

D200D0 JP NC,DOOO ; sprong als C=0 

Wanneer we willen kijken of de inhoud van 

de accu en een ander 8-bits getal overeen¬ 
komen, maken we gebruik van de instruktie 
CP (compare=vergelijken). Deze instruktie 
is eigenlijk een speciaal soort SUB in¬ 
struktie; het getal of register wordt van 
de accu afgetrokken, de vlaggen worden ge¬ 
set, maar het antwoord komt niet in de 
accu te staan, maar gaat verloren. Als 
twee getallen gelijk zijn, wordt na een 
CP- instruktie de Z—flag geset. 

Vb. ON A GOTO 8000,9000 in machinetaal: 

CP 1 ;als reg A=1 dan wordt de Z- 

JP Z,8000 flag 1 en de sprong gemaakt 
CP 2 ;reg A bevat nog steeds de 

JP Z,9000 oude waarde dus kan direct 
de volgende test plaatsvin¬ 
den. 

Net als in MSX-Basic, kan ook in Z80 
machinetaal gebruik worden gemaakt van 
subroutines. Deze worden aangeroepen met 
CALL (GOSUB in Basic) de subroutine wordt 
verlaten met RET (RETURN in Basic). Wan¬ 
neer de Z80 een CALL instruktie tegenkomt, 
wordt eerst de inhoud van de programcoun- 
ter op de stack (het kladblok) gezet. Bij 
RET wordt dit adres weer van de stack ge¬ 
haald, zodat de computer "weet" waarheen 
moet worden teruggesprongen. Behalve de 
gewone CALL en RET instruktie, kent de Z80 
ook nog CALL v en RET v. Wanneer aan de 
flag-voorwaarde (Z, NZ, C, NC) is voldaan, 
wordt de subroutine aangeroepen, of terug¬ 
gesprongen naar het hoofdprogramma. 

Vb. DC0080 CALL C,8000 ; CALL 8000 wordt 
uitgevoerd als de C-flag 1 is. 

C8 RET Z ; RET vindt plaats 

als Z = 1. 

De eerste 16K van het ROM-geheugen van 
een MSX-machine bestaat uit zeer doordacht 
geprogrammeerde machinetaal subroutines, 
het BIOS genaamd (Basic Input/ Output Sys¬ 
tem). Dit BIOS kent twee bestaansredenen. 
Ten eerste dient het om de machinetaalpro- 
grammeur te verlossen van programmeer¬ 
problemen die in ieder programma voor¬ 
komen, zoals het inlezen van een toets en 
het op het scherm plaatsen van tekst. Ten 
tweede geeft het aan MSX-fabrikanten de 
mogelijkheid hun machine anders te maken, 
zonder direct buiten de MSX-norm te val¬ 
len. Wanneer de BIOS—ROM wordt aangepast 
aan de aangebrachte veranderingen is de 
computer weer MSX-compatible (behalve wan¬ 
neer programmeurs buiten dit BIOS om wer¬ 
ken). Door een aantal BIOS—CALL's achter 
elkaar te plaatsen, met tussendoor enkele 
machinetaal instrukties, zijn al zeer 
fraaie effecten te bereiken. Martin Buysse 
gaat in een andere rubriek in dit blad 
dieper op BlOS-CALL's in. 


Nu volgen nog enkele programma's die wat 
mogelijkheden van machinetaalprogrammeren 
laten zien. Probeert U eens 


MT-PROGRAMMA 1 


D0O0 210000 LD HL,0 ;Hl=teller 
D003 110100 LD DE,1 ;met 1 ophogen 
D006 19 ADD HL,DE ;ophoging 
D007 D206D0 JP NC,D006;teller <= FFFF? 

;ja dan doorgaan 

D008 C9 RET ;nee dan naar Basic 

In dit programma wordt HL als teller 
gebruikt. Steeds wordt registerpaar DE 
(met als inhoud 1) erbij opgeteld. Wanneer 
de carry-flag 1 wordt is HL van FFFF naar 
0000 gesprongen en moet de optelling 
beëindigd worden. Er is geen gebruik 
gemaakt van INC HL, omdat deze instruktie 
geen vlaggen aanpast, ADD HL,DE doet dit 
wel. Dit programma illustreert de snelheid 
van machinetaal, in minder dan een seconde 
wordt van 0 tot 65535 geteld. 

10 DEFINT I: DEFUSR = &HD0O0 
20 F0R I=&HD000 T0 &HD008:READ A$:A=VAL("& 
H”+A$): P0KE I,A:NEXT 
30 DATA 21,0,0,11,1,0,19,D2,6,DO,C9 
40 PRINT"tellen in Basic":TIME = 0 
50 FOR I=-32768! TO 32766: NEXT 
60 T=TIME:BEEP:PRINT "In”t/50"sec" 

70 A$=INKEY$:IF A$="" THEN 70 
80 PRINT"tellen in M-taal" 

90 A=USR(0) 

100 BEEP:PRINT"klaar!" 


MT-PROGRAMMA 2 

D100 CD9F00 CALL 9F 

D103 01C003 LD BC,3C0 
D106 210000 LD HL,0 
D109 CD5600 CALL 56 
D10C CDB700 CALL B7 
D10F D200D1 JP NC,D10I 
D112 C9 RET 


;ascii-waarde toets 
in accu 

;960 bytes in VRAM 
;vanaf adres 0 
;vullen met toets 
;CTRL/STOP ingedrukt 
;nee? -> vervolg 
;ja ? -> naar Basic 


Het tweede programma laat zien hoe, door 
het aaneenkoppelen van enkele BIOS-CALL's, 
een heel aardig programma ontstaat. Eerst 
wordt met CALL 9F een toets ingelezen en 
vervolgens worden de eerste 960 bytes in 
screen 0 (40 rijen x 24 kolommen) via 
CALL 56 hiermee gevuld. BIOS-CALL B7 con¬ 
troleert of CTRL/STOP is ingedrukt; is dit 
het geval dan wordt teruggekeerd naar 
Basic. 


10 FOR I=&HD100 T0 &HD112:READ A$:A=VAL("& 
H"+A$): P0KE I,A:NEXT 
20 KEY0FF: SCREEN 0:CLS 
30 DEFUSR=&HD100: A=USR(0) 

40 DATA CD,9F,00,01,CO,03,21,00,00,CD,56, 
00,CD,B7,00,D2,00,D1 ,C9 

MT-PROGRAMMA 3 

D200 2114D2 LD HL,D214;HL wijst naar le 

letter codewoord 

D203 CD9F00 CALL 9F ;inlezen toets 

D206 BE CP (HL) ;zijn toets & letter 

codewoord gelijk? 

D207 C20000 JP NZ,0 ;nee —> reset 
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D20A FEOD CP OD 
D20C C8 RET Z 
D20D 23 INC HL 

D20E CDA200 CALL A2 

D2I1 C303D2 JP D203 

D2I4 4D53580D 


;return toets? 

;ja -> naar Basic 
;nee-> wijs volgende 
letter aan 
;correct ingetikte 
letter op scherm 
;volgende letter 
testen 

;codewoord "MSX" 

vïn t a de ^ de . pr , 0g f amma laat het gebruik zien 
van de mstruktie CP. Bij dit programma 

moet een codewoord worden ingetypt. Wordt 
hierbij een fout gemaakt (een kleine let¬ 
ter ipv. een hoofdletter is ook een fout) 
dan reset de computer. De laatste toets 
die moet worden ingedrukt is de return 
toets. Is het gehele codewoorde juist in¬ 
getypt dan kan bijvoorbeeld een Basic 
programma worden gestart. Het codewoord is 

n9i r J 0 T n . al ! ASCI1 ^tallen vanaf adres 
UZ14. Nu is de codetekst MSX<return>. Deze 
tekst mag ook langer dan drie karakters 
worden gemaakt, maar moet steeds eindigen 
op OD (de ASCII-waarde van <return>). 

10 u°li; &HD2 °° T0 &hd 217:READ A$:A=VAL("& 

H +A$):POKE I,A:NEXT 

■30 X ®> 03 , D2,4D, 53,58, OD 

30 CLS:PRINT 'typ codewoord in:” 

40 DEFUSR = &HD200:A=USR(0) 

50 PRINT:PRINT"door test gekomen" 

Tot de volgende keer; 

Mare Spierenburg 

De Z80 irjstruktieset 


8-bit s load inc;+irn b4- 


LD A t 
LD B, 
LD C, 
LD D, 
LD E, 
LD H, 
LD L, 


A B C D E H L (HL) 

J* 72 7 9 7A 7E 7C 70 7E 

A7 40 41 42 43 44 45 46 

4F 48 49 4A 4B 4C 4D 4E 

57 50 51 52 53 54 55 56 

5F 58 59 5A 5B 5C 5D 5E 

67 60 61 62 63 64 65 66 

6f 68 69 6A 6B 6C 6D 6E 


LD(HL), 77 70 71 72 73 74 73 

A B C D 

I~m Tvtwi 1 E D70d DD7ld DD72d 

LD(IY+d)t FD77d FD70d FD71d FD72d 


(IX+d) 

DD7Ed 

DD46d 

DD4Ed 

DD56d 

DD5Ed 

DD66d 

DD6Ed 

DD76d 


<IY+d) n 

FD7Ed 3En 
FD46d 06n 
FD4Ed OEn 
FD56d 16n 
TOEd lEn 
FD66d 26n 
FD6Ed 2En 
H)76d 36n 


LD A,(BC) DA 
LD A»(DE) IA 
LD At(mn) 3Anm 


^ H L n 

£° 74d DD75d DD3ódn 
FD73d FD74d FD75d FD36dn 


LD (BC),A 02 
LD (DE)tA 12 
LD (mn)tA 32nm 


LD At I ED57 
LD A,R ED5F 


LD I,A ED47 
LD R»A ED4F 


8_ bits rekenkundige en logi s che bemerking 


BODE 


ADD A, 
ADC A, 
SUB A, 
SBC At 
AND A, 
XOR A, 
OR At 
CP 
INC 
DEC 


87 80 
8F 88 
97 90 
9F 98 
A7 AO 
AF A8 
B7 EO 
EF B8 
3C 04 
3D D5 


81 82 
89 eA 
91 92 
99 9A 
Al A2 
A9 AA 
BI B2 
B9 BA 
OC 14 
OD 15 


H 

83 84 
8B ec 
93 94 
9B 9 C 
A3 A4 
AB AC 
E3 B4 
BB BC 
IC 24 
1D 25 


L (HL) (IX+d) 


85 86 
8D 8E 
95 96 
9D 9E 
A5 A6 
AD AE 
B5 B6 
ED BE 
2C 34 
2D 35 


DD8ód 

DDBEd 

DD96d 

DD9Ed 

DDA6d 

DDAEd 

DDB6d 

DDBEd 

DD34d 

DD35d 


1 6-bits —load instruktipc 

LD BC,(mn) ED4Bnm 
LD DE, (mn) ED5Enir. 

LD HL,(mn) 2Anm 
LD IX,(mn) DD2Anm 
LD IY,(mn) FD2Anm 
LD SP,(mn) ED7Enm 
LD SP,HL F9 


AF BC DE 
PUSH F5 C5 D5 
P0P F1 Cl Dl 


LD (mn) ,BC ED43nrr. 
LD (mn),DE ED53nm 
LD (mn)tHL 22nm 
LD (mn),IX DD22nm 
LD (mn),IX FD2Anm 
LD (mn),SP ED73nm 
LD SP,IX DDF9 

HL IX IY 

E5 DDE5 FDE5 
El DDE1 FDE1 


(IY+d) i> 

FD86d C5n 
FD8Ed CEn 
FD96d D6n 
FD9Ed DEn 
FDA6d E6n 
FDAEd EEn 
FDBód F6n 
FDEEd FEn 
FD34d 
FD35d 


LD BC,mn Olnm 
LD DE,mn llnm 
LD HL,ran 21 nm 
LD IX,mn DD21nm 
LD !Y,mn FD21nm 
LD SP,mn 3lnm 
LD SP,IY FDF9 


1 6 bits rekenkun dige instrukties 


BC 

ADD HL, 09 
ADD IX, DD09 DD19 
ADD IY, FD09 FD19 


DE 

19 


INC 

DEC 


03 

DB 


13 

1 B 


HL 

SP 

IX 

IY 

29 

39 




DD39 

FD39 

DD29 

FD29 

ED6A 

ED7A 


ED62 

ED72 



23 

33 

DD23 

FD23 

2B 

3E 

DD2B 

FD2B 


J urnp, ca 11 en ret u rn instmlr^/pe 
Voormaardeli iif 

conditie: C 

JP v,mn DAnm 

JR v,e 38e 

CALL v, ren DCnm 
RET v D8 


gnyooruiaardeli ik 

JP mn C3n* 

JP (HL) E9 
CALL mn CDmn 
RETI ED4D 


NC 

2 

NZ 

PE 

PO 

P 

D2nm 

30e 

CAnm 

28e 

C2nm 

20e 

EAnm 

E2nm 

FAn» 

D4nm 

DO 

CCnm 

C8 

C4nm 

CO 

ECnm 

E8 

E4n® 

EO 

FCnre 

F8 


JR e 18e 

JP (IX) DDE9 
RET C9 

RETN ED45 


FO 


DJNZ 10e 
JP (IY) FDE9 


Rgtpe r en schuif 


RLC 

RRC 

RL 

RR 

SLA 

SRA 

SRL 

RLD 

RRCA 


CB07 CBOO 
CBOF CB08 
CB17 CB10 
CB1F CB18 
CB27 CB20 
CB2F CB28 
CE3F CB38 

ED6F 

OF 


CB01 

CB09 

CB11 

CB19 

CB21 

CB29 

CB39 


CB02 

CBOA 

CB12 

CB1A 

CE22 

CB2A 

CB3A 

RRD 

RLA 


E H 

CB03 CB04 
CBOB CBOC 
CB13 CB14 
CB1B CB1C 
CB23 CB24 
CB2B CB2C 
CE3B CB3C 

ED67 

17 


L 

CB05 

CBOD 

CB15 

CB1D 

CB25 

CB2D 

CB3D 


(HL) (IX+d) 

CB06 DDCBd06 
CBOE DDCBdOE 
CB16 DDCBdl6 
CB1E DDCBdlE 
CB26 DDCBd26 
CB2E DDCBd2E 
CB3E DDCBd3E 

RL CA 07 

RRA 1F 


(IY+d) 

FDCBd06 

FDCBdOE 

FDCBdlA 

FDCBdlE 

FDCBd2& 

FDCBd2E 

FDCBd3E 


Bit manipulatie 

CB+xxyyyzzz (bin.) 

"" re9iste " ! S&' KSu? 85, ‘BWi «co 


In en out ins+rnk+ 

IN A,n DBn 
IN C,(C) ED48 
IN H,(C) ED60 
INIR EDB2 

OUT A, n D3n 
OUT C, (C) ED49 
OUT H,(C) ED61 
OTIR EDB3 


IN A,(C) ED78 
IN D,(C) ED50 
IN L,(C) ED68 
IND EDAA 

OUT A,(C) ED79 
OUT D,(C) ED51 
OUT L,(C) ED69 
OUTD EDAB 


IN B,(C) ED40 
IN E, (C) ED58 
INI EDA2 
indr EDBA 

OUT B,(C) ED41 
OUT E,(C) ED59 
OUTI EDA3 
OTDR EDBB 


Overige i nstrukties 

EX AF,AF’ 08 
EX (SP),HL E3 
LDI 
LDDR 
CPC 
CPL 
SCF 
Dl 
IM1 
RST8 
RST20 
RST38 


EDAO 

EDB8 

EDA9 

2F 

37 

F3 

ED55 

CF 

E7 

FF 


EXX D9 

EX (SP),IX DDE3 
LDIR edbo 

DPI EDA1 

CPDR EDB9 

NEG ED44 

NOP 00 

EI FB 

IM2 ED5E 

RST10 07 

RST28 EF 


EX DE,HL 

EX (SP),IY 

LDD 

CPIR 

DAA 

CCF 

HALT 

IMO 

RSTO 

RSTJB 

RST30 


EB 

FDE3 

EDA8 

EDB1 

27 

3F 

76 

ED46 

C7 

DF 

F7 


BOEKEN 

PROGRAMMEERCUR s U s MSX BASIC 
Daar werd_ ik toch wel even stil van: wat 

Daeinf's ai l b ° ek * Maar liefst ruim 380 
pagina s luxe papier en toch niet 

nier is een doorgewinterde BASIC kenner 

waar tk ij 5^1®“ 8 ^ 8aaa - Vrijwel alles, 
waar ik in de loop der jaren in de diverse 

£ lade '? «ver heb geschreven, wordt hierin 
behandeld. Een echt leerboek voor diegenen 
ie de basiskennis hebben en die nu goede 
programma s in BASIC willen feren 
schrijven. cie[1 

De basisfunkties van de rekenkundig 
bewerkingen komen aan de orde; inclusif? 

hLH C v lJfW i ze en de volgorde van be- 
d ° 0r de computer. Bij het 
hoofdstuk over tekst worden de nro- 
gammavariabelen, de getalvarlabelen en de 

iitgeb^id iordr lt T° erig behandeld * Zeer 

uitgebreid wordt ingegaan op de lus- 

s ructuren (de geneste lussen worden flink 

uitgespit). Heel goed en doordacht (en 

nnd- u V6el BASIC Programmeurs hard 

ig) is het gedeelte over gestructureerd 
programmeren. Verder vinden we veel infor¬ 
matie over de in- en uitvoeroJdJaXÊeï, 
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gegevens- en tekstverwerking, gegevens¬ 
verwerking met cassette en diskette en 
uitvoerig worden de keuzestructuren be¬ 
handeld . 

Nog enthousiaster word ik bij het lezen 
van het hoofdstuk over het inkorten en 
versnellen van programma's, waarbij een 
sorteerroutine als voorbeeld is genomen. 
De snelheid van deze -elders in het boek 
geplaatste- sorteerroutine wordt van 90 
seconden teruggebracht naar 38 seconden. 
Verder staat vrijwel alles in dit boek wat 
noodzakelijk is om goede en professsionele 
BASIC programma's te schrijven. Een groot 
voordeel hierbij is dat ook de DISK-BASIC 
wordt behandeld. Op de specifieke MSX 
mogelijkheden (geluids- en grafische 
instructies) wordt niet of nauwelijks 
ingegaan maar hiervoor zijn al meer dan 
genoeg boeken in de handel verschenen. Dit 
boek kan dan ook prima gebruikt worden 
voor programmeurs vam 'normale' Microsoft 
BASIC en voor de MSX programmeurs maakt 
het niet uit of met de MSX 1 of 2 wordt 
gewerkt. 

De listings komen bijna allemaal direkt 
van een printer zodat, wat betreft dit 
gedeelte, zetfouten niet kunnen voorkomen. 
Zover ik heb kunnen vaststellen komen er 
toch al zeer weinig fouten voor in dit 
boek; en dat is bij de meeste boeken wel 
anders. 

De programmavoorbeelden zijn zeer goed 
gekozen en veel hiervan is bruikbaar (al 
dan niet na enige aanpassingen) in eigen 
programma's. Alle hoofdstukken worden 
afgesloten met oefeningen, waarvan de 
antwoorden en resultaten achter in het 
boek terug te vinden zijn. Tevens achterin 
het boek een lijst met gereserveerde MSX 
BASIC woorden, de ASCII codes, de video— 
codes, de besturingsopdrachten en een 
lijst met de foutmeldingen. 

Het is geen makkelijk boek en een basis¬ 
kennis van BASIC is wel noodzakelijk, maar 
verder is dit het beste BASIC leerboek dat 


ik -tot nu toe- in handen heb gehad. Ik 
beveel het dan ook zonder meer aan aan 
iedereen die serieuze plannen heeft om in 
BASIC te gaan programmeren en alle inzen¬ 
ders van programma's aan de diverse 
tijdschriften zouden dit boek eigenlijk 
moeten lezen. 

Het boek is een uitgave van ACADEMIC SER¬ 
VICE en is geschreven door Nok van Veen. 
De verkoopprijs bedraagt 45,= 



BASIC BOEK VOOR MSX COMPUTERS 


Dit is een heel ander boek. Het boek is 
tamelijk oppervlakkig en vrij moeilijk. Er 
wordt erg veel gewerkt met rekenkundige en 
wiskundige bewerkingen zodat het voor 
lezers die zich daarmee bezighouden best 
interessant is. Opmerkeljk is het werken 
met stroomdiagrammen (flowcharts). 

Voor wie zich hiermee (b.v. voor een 
studie) bezighoudt kan het best de moeite 
waard zijn dit boek eens nader te bekij¬ 
ken. Ook komen de grafische- en geluids- 
instructies aan de orde en -evenals bij 
het vorige boek- worden alle hoofdstukken 
afgeslotem met vraagstukken waarvan de 
antwoorden weer aan het eind van het boek 
terug te vinden zijn. 

Disc BASIC wordt niet behandeld en tekst¬ 
en gegevensverwerking komen weinig aan de 
orde. De listings komen weer keurig 
rechtstreeks van de printer; dus ook hier 
weinig kans op fouten. 

Het boek is een uitgave van Uitgeverij 
MAKLU en is een vertaling van het boek 
'Computer programming in MSX BASIC' van 
L.E. Carter en E. Huzan. 

De prijs is fl. 39,50 en hiervoor krijgt 
men 176 pagina's tekst en listing- 
voorbeelden. 

A.Debels. 
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Software 

& 

t 



m m m m 



FIRST STEPS 

Dit is software voor de allerkleinste 
computeraars onder ons. Het programma is 
geschikt voor kinderen van 4 tot 8 jaar. 

De ouders zullen wel moeten helpen, want 
de software komt uit Engeland en de 
handleiding is dan ook in het Engels. Wel 
is deze handleiding gemaakt voor kinderen 
dus met grote letters en leuke gekleurde 
plaatjes. Er staan 4 spellen in het 
programma. Het eerste spel is een doolhof 
spel waarbij Mr. Greedy, een dikbuikige 
snoeper, naar de ijsjes geloodst dient te 
worden. Uiteraard zijn de doolhofjes zeer 
eenvoudig (slechts enkele vakken) en ruim 
opgezet met dikke lijnen. 

Bij het tweede spel (Mr. Silly's hat game) 
is het de bedoeling het gevraagde hoedje 
(juiste model met juiste kleur) op het 
hoofd van Mr. Silly te plaatsen. Alle 
hoedjes komen 2 tot 3 keer voor op de 
noedenplank. Uiteraard weer heel eenvou- 
dig. iets lastiger, maar dan ook bedoeld 
y°°r V letS ou ^ eren i n de bovengenoemde 

ee ft l jdsgroep is een heel simpel memory 
spel, dat in twee variaties gespeeld kan 
worden. Het eerste memory spel werkt 
alleen met afbeeldingen: schoenen, laarzen 
sokken, schaatsen e.d. moeten bij elkaar 
gezocht worden. Ook weer heel simpel: de 
kinderen moeten hun keuze doen aan de hand 
van het model; alle kleuren zijn gelijk. 
Bij het tweede raemoryspel moeten letters 
bij elkaar gezocht worden. Verder eeldr 
voor dit spel hetzelfde als voor het 
vorige memory spel. Al met al heel aardig 
voor de kleintjes. De software staat op 
cassette en komt van Mirrorsoft. De prijs 
is redelijk (Fl. 39,00) de handleiding is 
fraai uitgevoerd. Voor sommigen kan het 
een bezwaar zijn dat deze laatste in het 
Engels geschreven is. 



Beeld * * * * 
Geluid* * * * 
Spelkwaliteit* * * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie* * * * 
Prijs* * * * 

***** ZEER goed 
**** GOED 
*** REDELIJK 
** MATIG 

* SLECHT 


SUPER PUZZLE 

Super puzzle is ook weer voor het hele 
gezin. Het is een schuifpuzzel; door het 
verschuiven van de stukken moet het 
plaatje weer in orde gebracht worden. Er 
zijn weer drie variaties. Een heel een¬ 
voudige puzzel, een middelgrote en een 
hele moeilijke. De eenvoudigste versie is 
weer geschikt voor kinderen en de moei- 
lijkste versie is uiteraard niet geschikt 
voor de hele kleintjes. De plaatjes zijn 
leuk en ook dit spel is zijn geld weer 
waard. De puzzels staan op cassette en 
deze komt weer van Morwood. De prijs is 
Fl. 34,95. Het wordt misschien vervelend, 
maar weer een Engelse handleiding. 



Beeld * * * * 
Geluid * * * * 
Spelkwaliteit * * * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie * * * * 
Prijs * * * * 
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SUPER MAZE 


Software voor het hele gezin; voor kinde¬ 
ren van 6 tot 100. 

Super Maze ts een super mooi spel. Gra¬ 
fisch ziet het er fantastisch uit. De 
geluiden zijn prima en, doordat verschil¬ 
lende moeilijkheidsgraden gekozen kunnen 
worden is dit spel zowel geschikt voor 
kinderen als voor volwassenen. Zelfs wij, 
als doorgewinterde spellentesters, hebben 
toch nog lol gehad aan dit spel. In het 
spel moet je een zoekgeraakt vriendje zien 
te vinden. Voor onderweg krijg je drie 
glazen limonade mee en tijdens het drinken 
van een glas wordt, op een tweede scherm, 
het doolhof met de te volgen route 
tijdelijk zichtbaar gemaakt. Dit kan uit¬ 
eraard maar drie keer; dus niet meteen 
alles opdrinken. De wegen door het dorp 
liggen elke keer anders dus de route kan 
niet opgeschreven worden of uit het hoofd 
worden geleerd. Het eerste doolhof is 
klein en eenvoudig; hier kunen ook kleine 
kinderen aan meedoen. Het tweede doolhof 
is iets groter en het derde is echt al 
moeilijk. Dit laatste spel is dan ook niet 
geschikt voor de hele kleintjes. Het spel 
staat op cassette en wordt geleverd door 
Morwood. De prijs is Fl. 34, 75 en dat is 
goedkoop voor een spel met zulke kwali¬ 
teiten. De handleiding is weer in het 
Engels. 

Beeld ***** 

Geluid * * * * 

Spelkwaliteit * * * * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie* * * * 

Prijs ***** 

***** ZEER goed 
**** goed 

*** REDELIJK 
** MATIG 

* SLECHT 



NUMBER PAINTING 


Weer super software voor kinderen. Het 
spel is geschikt voor kinderen van 5 tot 
14 jaar en grafisch ziet het er fantas¬ 
tisch uit. Het is een rekenspel met 
optellen, aftrekken, vermenigvuldigen en 
delen tot getallen van max. 999. De 
eenvoudigste ronden -voor de kleintjes- 
hebben alleen optelsommen tot 10, 20 of 

30. Het leuke aan dit spel is, dat het re¬ 
kenen gebeurt in een klimspel. Met lad¬ 
dertjes moet naar de getallen worden 
gegaan en met een druk op de spatiebalk 
(of vuurknop) moet een getal gekozen 
worden. Het is de bedoeling dat een 
gevraagd getal -op deze wijze- met + en - 
cijfers^ samengesteld wordt. Er zijn 3 
'levens' en het spel is gebonden aan een 
tijdslimiet. Er is erg veel aandacht 
besteed aan de sprites. Wanner een 
antwoord fout is, schudt een poppetje 
nee met zijn hoofd en bij een goed 
antwoord knikt het 'ja'. Ook het klimmen 
wordt heel realistisch uitgebeeld; het 
hele lichaam beweegt bij het op- en 
neergaan van de ladders. Zelfs na een 
sprong zakt het poppetje even door de 
knieen! Heel erg leuk om te zien. Helemaal 
mooi is de mogelijkheid om een beeld- 
correctie uit te voeren wanneer het beeld 
teveel naar links staat; druk op de knop 
en het beeld staat goed in het midden!! 
Dat is zeker een compliment waard aan het 
adres van ASK software, die dit spel op 
cassette heeft uitgebracht. De prijs is 
Fl. 39,= en hiervoor krijgt men dan ook 
nog een fraaie (weer Engelse) handleiding. 


Beeld * * * * * 
Geluid * * * * * 
Spelkwaliteit * * * * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie* * * * * 
Prijs* * * * * 

***** ZEER GOED 
**** GOED 
*** REDELIJK 
** MATIG 

* SLECHT 


48 


















Hardware 


SMITH CORONA FASTEXT-80^ 

t 


DE SMITH CORONA FASTEXT-80 


Deze keer behandelen we bij de hard- 
waretest een standaard Centronics printer; 
de Fastext 80 van Smith Corona. Hoewel een 
standaard Centronics printer niet de vol¬ 
ledige MSX-karakterset kan afdrukken (de 
in de vorige nummers geteste Philips en 
Trend printers kunnen dit wel) heeft deze 
printer een groot voordeel: een zeer goede 
prijs/prestatieverhouding. Voor fl.400,— 
a fl. 500, is deze printer overal in Ne¬ 
derland te koop. 

De Fastext 80 heeft ongeveer hetzelfde 
formaat als uw MSX-computer (b*d*h 
40*25*10 cm) en is uitgevoerd in de 
kleuren matzwart en gebroken wit. Aan de 
voorzijde bevinden zich een "power on" 
lampje en een "on/off line" schakelaar. De 
aan/uit schakelaar bevindt zich aan de 
achterzijde, evenals een dipswitch, waar¬ 
mee een extra regelopvoer na iedere Return 
kan worden verkregen. Verder heeft de 
printer een handel voor keuze tussen 
frictie- en tractortransport en een grote 
knop om papier door te draaien. Deze 
laatste moet vaak worden gebruikt, want 
een line-feed (regelopvoer) en formfeed 
(nieuwe pagina) toets ontbreken. 

De meeste printers uit deze prijsklasse 
zijn niet erg degelijk gefabriceerd. De 
Fastext 80 vormt hierop een uitzondering: 
het loopwerk van de printerkop en beide 
stappenmotoren zijn op een metalen chassis 
bevestigd. Er is netjes gebruik gemaakt 
van schroef-met-moer bevestigingen, zelf- 
tapschroeven die in het plastic worden 
gedraaid zijn zoveel mogelijk vermeden. De 
draden naar schakelaars e.d. zijn door 
middel van connectors op de printplaat ge¬ 
monteerd. Kortom: op de afwerking is niets 
aan te merken. 

Nu de mogelijkheden van deze printer. Deze 
zijn minder uitgebreid dan van de in de 
vorige MSX-Gidsen beschreven printers, 
maar gezien het prijsverschil is dat ook 
niet zo verwonderlijk. 



De printer start op met Picaschrift (10 
tekens per inch). Picaschrift kan de 
Fastext printen met een snelheid van 80 
tekens per sekonde. Dit schrift is ideaal 
voor^het maken van listings. Door middel 
van Escape codes is het mogelijk twee 
andere lettersets te kiezen: Elite (12 
tekens per inch) en Condensed (17 tekens 
per inch). Alle drie de lettersets kunnen 
bovendien tweemaal vergroot worden 
weergegeven. Het is ook mogelijk stukken 
tekst of losse letters te onderstrepen. 
Hoewel de speciale MSX-karakters niet 
aanwezig zijn, zijn accent-letters en 
diverse symbolen wel uit de internationale 
lettersets (waaronder Nederlands) te 
verkrijgen. 

De printer heeft de beschikking over twee 
grafische modes (60 of 72 puntjes per 
inch), waarbij ieder printerpennetje apart 
kan worden aangestuurd. De regelopvoer is 
variabel in te stellen van 1/72 tot 85/72 
inch. 

De Fastext-80 werkt met lintcassettes. 
Volgens de beschrijving gaan deze 1 
miljoen tekens mee. De cassettes kosten 
fl* 15,— en worden verkocht per set van 2 
stuks. U kunt voor fl. 150,— een 
tractorfeed hulpstuk bij deze printer 
kopen, waardoor het scheeflopen van 
kettingformulieren wordt voorkomen. Wan¬ 
neer u losse vellen papier gebruikt, wordt 
het printen onderbroken op ca. 2 1/2 cm 

voor het einde van het papier. Met de 
online/offline—toets kunt u nog enkele 
regels extra printen. Tot op 1 cm van de 
onderrand trekken de regels niet scheef! 
Losse vellen papier zijn daardoor goed te 
gebruiken op deze printer. 

Een punt waarover nog niet gesproken is 
is de printerkabel. Omdat dit niet een 
specifieke MSX-printer is, is deze niet 
hljgeleverd. De kabel is echter overal 
verkrijgbaar en u kunt natuurlijk ook uw 
eigen kabel maken, zoals beschreven in de 
MSX-Gids nr.1. 

CONCLUSIE. 

De Fastext-80 is een vriendelijk ge¬ 
prijsde, degelijke printer met goede 
afdrukkwaliteit. Het aantal mogelijkheden 
is beperkter van van zijn grotere 
broers:"near letter quality", italics 
(schuin geprinte tekst) en super- en sub¬ 
script ontbreken. De printmogelijkheden, 
die de Fastext-80 wel heeft zijn 
kwalitatief net zo goed als van duurdere 
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printers. Bovendien is het een snelle 
printer: 80 karakters per sekonde, bidi- 
rektioneel (print in beide richtingen) en 
logic seeking (slaat gedeelten met alleen 
spaties over). Omdat het geen echte 
MSX-printer is, kunnen de speciale MSX- 
karakters (de grafische tekens, Griekse 
letters e.d.) niet worden afgedrukt. 
Hoofdletters, kleine letters, cijfers en 
leestekens worden echter probleemloos op 
papier gezet. 


Deze printer is een goede keuze voor wie 
een 80-koloms printer voor listings zoekt 
en voor degene, die een snelle printer 
naast zijn daisywheelprinter wil hebben. 
Hopelijk komt voor deze printer een ROM in 
de handel met de speciale MSX-karakterset. 
De Fastext—80 is dat waard!!!! 

Mare Spierenburg. 


O-g?- nri q <5? 1 i_ . 8 L; 8~» ie? cdl c-s? im v .et ~a—> cz8 e 

...X ..H — C O R O Kt A FAS T 1EI X T~ — O O F* R X Kil 1~ EI R 


Dit is het PICA - schrift. Wanneer de printer opstart wordt 
dit lettertype geselecteerd. Het wordt geprint met 80 karak¬ 
ters per seconde. 


Iets kleiner (12 tekens per inch) is het Elite- schrift dat d.m.v. een 
ecape-code kan worden gekozen. 

Condensed’ heet dit kleine lettertype! waarbij 137 tekens op een regel passen. 

Alledrie de lettertypes kunnen twee keer zo groot worden 
weergegeven 

II - 5 x cc Si es cc 8“« tt' :L 1F" -fc c=? 'n 1 sl v- <3 es* tel 

Elite— schrif t enlarged 

Condensed — enlarged geeft een vettere en iets 
grotere letter dan Pi ca—schrift. 


Letters of woorden 


Grafische weergave 



AMNESTY 
25 ._X A A IR 


kunnen worden onderstreept. 
en tekst zijn vrij te combinerens 

X KI T KI Ft KJ A T' IE O KI A |__ 

DE NOODZAAK BLIJFT. 


De SgectraVideo X' Press herboren 

De Spectravideo X' Press is reeds 
enige tijd op de markt. U heeft tijdens de 
introductie van deze computer in verschil¬ 
lende bladen kunnen lezen dat het niet 
zomaar gaat om de zoveelste MSX computer. 
Naast de standaard MSX aansluitingen is de 
X' Press voorzien van een ingebouwde 3.5" 
disk drive (360K geformatteerd). Deze 
drive is volledig compatible met elke 
andere 3.5" SS MSX-diskdrlve. Tevens is de 
computer voorzien van een aansluiting voor 
een tweede diskdrive (3.5" of 5 1/4") en 
een RS-232-C interface. 

Bovenstaande feiten zijn voor de doorge¬ 
winterde MSX'er die graag op de hoogte 
blijft van de nieuwe ontwikkelingen na¬ 
tuurlijk niets nieuws. Waarom dan toch dit 
artikel? 


Bij de eerste geleverde exemplaren van 
deze computer bleek dat de diskdrive pro¬ 
blemen gaf. Deze problemen zijn nu niet 
meer aan de orde. De diskdrives behoren 
tot de snelste en doen hun werk voor 100 
procent nauwkeurig. Dit is vooral te dan¬ 
ken aan de nieuwe Disk ROM die in de 
definitieve versies werd ingebouwd. 

Mensen die in het bezit zijn van een X' 
Press van de "oude" serie kunnen reeds 
sinds enige tijd gebruik maken van de 
uitstekende service van Electronics Neder¬ 
land (de importeur van SpectraVideo). 

De oude MSX-DOS/Disk BASIC en CP/M schij¬ 
ven kunnen worden ingestuurd en deze wor¬ 
den dan kosteloos voorzien van een 80- 
koloratnen BASIC (vgl. MSX-2), Disk R0M- 
verify programma's, snellere CP/M etc. 

De meest in het oog springende extra is 
echter het tekstverwerkingspakket Word¬ 
star /Mailmer ge. Deze tekstverwerker, die 
bovendien geheel Nederlandstalig is, heeft 
een aanschafprijs die dicht bij de prijs 
van de X' Press ligt (1799,-). Hiervoor 
krijgt u echter de computer + Wordstar/ 
Mailmerge + de SV 7700 monochrome monitor. 
Wordstar is een van de meest toegepaste 
tekstverwerkerkingssystemen. De mogelijk- 
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heden van het programma zijn zeer uitge¬ 
breid. Gelukkig is het programma voorzien 
van een prima Nederlandstalige handlei- 
ding, zodat u vrijwel direct gebruik kunt 
maken van deze mogelijkheden. Zelf gebruik 
ik het programma dagelijks en het heeft 
nog nooit het^gevoel bij me opgeroepen dat 
ik iets extra s nodig zou moeten hebben. 


CjP/M 2_._2_ Ojjerating system 

Het is dankzij dit CP/M, dat de X' Press 
in staat is om met programma's als Word¬ 
star te kunnen werken. CP/M was nl. tot 
voor kort het operating system voor de 
zakelijke gebruiker. Dit is door de komst 
van MS-DOS wel wat veranderd. Vrijwel alle 
huidige zakelijke toepassingen worden ge¬ 
daan op een IBM of compatible (vgl. Bond- 
well, Advance etc.). Dat wil natuurlijk 
niet zeggen dat CP/M nu niet goed meer zou 
voldoen. Integendeel! Wanneer u geen snel— 
le grafische toepassingen nodig heeft, 
zoals bij tekstverwerking, spreadsheets 
(multiplan), databases (dBase-II), pro¬ 
grammeertalen (Turbo Pascal, Fortran, PL1 
etc.) kunt u het prima af met CP/M. 

SpectraVideo levert voor de X' Press bij¬ 
voorbeeld het gehele Micropro software 
pakket. Dit pakket bevat het reeds bespro¬ 
ken Wordstar/Mailmerge, Datastar (data¬ 
base), Calcstar(spreadsheet) en reportstar 
(rapportering). U kunt hiermee bijvoor¬ 
beeld in datastar een adressenbestand 
creeeren, dat u dan m.b.v. van reportstar 
keurig laat afdrukken op labels en m.b.v. 
mailmerge kunt u de adressen boven stan¬ 
daardbrieven laten plaatsen. 

COMPATIBILITEIT BINNEN CP/M 

D< - Y Press is, mits de 2e drive van het 5 
1/4 formaat is, in staat om alle onder 
CP/M 2.2 werkende programma's van de Kay- 
proll, Osborne I, Bondwell 12/14/16 en SVI 
328/728 formaat in te lezen en te gebrui¬ 
ken. Standaard kunnen alleen via de inge¬ 
bouwde drive CP/M programma's van de Bond¬ 
well 02 (3.5 ) en de X' Press zelf worden 
gebruikt. 

Datac ommunicatie 

De importeur heeft ons medegedeeld dat 
binnen afzienbare tijd een speciaal voor 
de X' Press ontwikkeld Nederlandstalig 
communicatie programma wordt uitgebracht. 
Dit programma (genaamd X' Press TALK) 
stelt de X' Press gebruiker in staat om, 
werkende onder een 80-kolommen scherm, te 
communiceren met de gehele wereld. Het te 
gebruiken modem wordt rechtstreeks aan de 
RS-232-C connector van de X' Press aange¬ 
sloten . 


Update: 

Op het laatste moment kwam bij ons het 
bericht binnen dat de SpectraVideo X' 
Press vanaf heden ook leverbaar is met het 
complete Micropro CP/M software pakket 
(Wordstar/Mailmerge, Datastar, Reportstar 
en Calcstar) in het Nederlands voor de 
prijs van HF 1998,- inclusief monochrome 
monitor. 

Dit is naar onze mening een prijs die zeer 
scherp genoemd mag worden en waarschijn¬ 
lijk een flinke klap zal betekenen voor de 
concurrentie. 

Voor nadere inlichtingen: 

ELECTRONICS NEDERLAND 
Afd. SpectraVideo, 

Tijnmuiden 15-19, 

1046 AK AMSTERDAM. 

Tel. 020-139960. 
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REM CHR$ DODR: 

REM H.SMEENGE JR. 

REM ESSCHENBRUGGERDIJK .1 
REM 7742 P.C. COEVORDEN 


MET DIT PROGRAMMA KAN EEN CHR$-WAARDE 
OMGEZET WORDEN NAAR EEN ASCCI-WAARDE 

EN ASCII-WAARDES KUNNEN OMGEZET WORDEN 
NAAR DE BIJBEHORENDE CHRS-CODE 


CLS:SCREENO:C0L0R1 
PR I NT: PR I NT ” HMHHN 
PRINT"* 

PRINT"! 

PRINT"! 

PRINT" I 


14sWIDTH37:CLEAR100;KEYOFF 


en ASC(code's)+CHR$ 


LOCATE,10 

PRINT"! ÉÉn chr*"SPRINT 
PRINT"2 meerdere chr$’ s" : F'RINT 
PRINT"3 ASC(code's)"sPRINT 
PRINT"4 stop"sPRINT 
L0CATE8,20s PRINT"MAAK UW KEUZE" 

X*=SPACÉ*(31)+"CHR$+ASC(code l 5 ) 

FOR I = 1T0LEN <X$) 

LOCATE2,3:PRINTMID*(X*,I,31) 

L0CATE2,3: F0RJ = 1.TD100: NEXTJ 
Q$=INKEY$:IF Q$=""THENNEXT 
IFQ$="1"THEN360 
IFQ$="2"THEN450 
IFQ$="3"THEN590 
IF Q$="4"THEN690 
GOTO 270 
CL S 

INPUT"CHR$(code)s";C 
IF C=0 THEN 140 
CLS 

VP0KE19,C 

PRINT"CHR$("C")=ASC("+CHR$(34) 

LOCATE19,O s PRINTCHR$(34)")" 

LOCATI 7 B,10: PRINT"0=terug naar menu"sPRINT 
CL 

LDCATEB,10: PRINT"0=terug naar menu"sPRINT 
PRINT:INPUT" EERSTE CHR$(code)";E 
IFE=OTHEN140 

PRINT: INPUT"LAATSTE Chr*(code> *'j L 
FORI=ETOL ’ 

VP0KE19,I 

PRINT"CHR$("I")=ASC("+CHR*(34) 

L.OCATE19, O: PRINTCHR$ (34) ” ) " 

F ORW=1T0500:NE X T 
NEXT 

L0CATE8, 10: PRINT"0 : =terug naar menu":PRINT 

GOTO 470 

CLS 

INPUT"ASC(code)";A$:PRINT 

IF A*="00"THEN140 

CLS 

PRINT"ASC("+CHR$(34);A$;+CHR$(34)")=": 

IF VPEEK(7)>31 THEN PRINT"CHRf(";ASC(A$>;")"; 

IF i VPEEK< 7)<32THENPRINT"CHR*(1)CRR$(";VPÉEK(7)+64; ")" ; 

L0CATE8,10: PRINT"00=terug naar menu":F'RINT 
GOTO 600 
CLSs END 
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ONTWIKKELINGEN OP MSX-GEBIED• 

De ontwikkeling van de wereldstandaard, 
die MSX is, c.q. zou moeten zijn, schijnt 
iets trager te verlopen dan menig fervent 
MSX-computer hobbyist heeft verwacht. Als 
voorbeeld noemen we de reeds lang aange- 
kondigde MT programma's, welke tot op 
heden nog niet verkrijgbaar waren. 

Tevens allerlei randapparatuur en featu¬ 
res, zoaló de door Aackosoft aangekondigde 
'Wizzard Robot' en de in diverse bladen 
vermelde MSX muis zijn tot nu toe nog niet 
op de Nederlandse markt verschenen. 

Met de software gaat het ook niet zo vlot 
als menigeen zich had gewenst; MSX-2 is al 
sedert enkele maanden volop leverbaar, 
maar de voor deze machine nuttige software 
zoals boekhoudprogramma's, faktuur, kas¬ 
boek, tekstverwerking, databases etc. zijn 
nog niet te koop. Ook spellen, die spe¬ 
ciaal geschikt zijn voor het uitgebreide 
videogeheugen van deze op zich prachtige 
MSX-machines zijn niet op de markt. 

Wel heb ik enkele staaltjes mogen aan¬ 
schouwen van spelprogramma's, die zullen 
gaan verschijnen voor de MSX-2 machines. 
Ik hoop dat dit niet al te lang meer op 
zich zal laten wachten, omdat anders de 
kans bestaat, dat de op zich unieke MSX- 
standaard zich toch de loef laat afsteken 
door de andere sterke computermerken zoals 
Atari en Commodore en dat zou voor vele 
gemotiveerde en enthousiaste MSX-aanhan- 
gers een diepe teleurstelling betekenen. 


Er zijn in Nederland genoeg clubjes MSX- 
hobbyisten, die wel iets voor de nieuwko¬ 
mers kunnen betekenen. Ook zijn er wel 
bedrijven, die goede en interessante spul¬ 
len op de markt brengen voor MSX (al duurt 
het soms wat lang) maar het MT-TELCOM 
modem met ingebouwde software bijvoorbeeld 
is er nu eindelijk. Na uitgebreid hiermee 
te hebben gewerkt, kan ik rustig stellen, 
dat professionele datacommunicatie met de 
MSX-computer mogelijk is geworden voor een 
hobbyprijs van fl. 699, —. Ik ken geen 
enkele andere homecomputer, waarvoor zo'n 
schitterend communicatiepakket beschikbaar 
is. Een pluim voor de makers! 

Nieuwe boeken verschijnen er met de regel¬ 
maat van een klok, o.a. van de firma 
Stark, die kwalitatief goede literatuur 
levert voor de MSX-gebruiker. 

Ook sommige bladen leveren vaak zeer inte¬ 
ressante informatie. Alleen jammer, dat de 
meeste nooit op tijd in de winkel liggen 
(uitgezonderd natuurlijk dit blad, dat u 
altijd op de beloofde datum in de winkels 
ziet verschijnen, maar dat wist u vast 
al). (NvdR: we doen ons best, maar dat wil 
natuurlijk niet zeggen, dat het nooit eens 
mis kan gaan.) 

MSX-ers, ik wens jullie nog veel prettige 
uurtjes achter je machine toe en voor 
diegenen, die liever van het hopelijk 
mooie weer genieten een mooie zomer en 
prettige vakantie. 


Uit dit alles kunnen wij concluderen, dat 
ook in de homecomputerwereld stilstand 
achteruitgang betekent en wil MSX het als 
wereldstandaard goed blijven doen en 
nieuwe hobbyisten aan zich weten te bin¬ 
den, dan zullen er op korte termijn ook 
nieuwe dingen -zoals interfaces voor scha¬ 
kelingen en besturingen, muizen, robots en 
gebruikerssoftware- op de markt moeten 
komen. 

De sedert lange tijd bestaande MSX-Werk- 
groep heeft ook op dit gebied nog wel het 
een en ander te doen, al laten zij de 
laatste tijd niet al te veel meer van zich 
horen. Maar ja, misschien is de buit al 
binnen. 

Wat betreft de andere clubs: ook hieraan 
schort er naar mijn idee nog wel het een 
en ander. Van diverse mensen heb ik verno¬ 
men, dat het bij sommige clubs alleen voor 
de vergevorderde interessant is aanwezig 
te zijn op clubavonden. Heren bestuursle¬ 
den: hier ligt een taak voor u. Er zijn 
vele MSX-gebruikers, die pas met de compu- 
terhobby zijn begonnen en die ook een 
beetje op steun en informatie van de di¬ 
verse clubs zijn aangewezen. 

POSITIEF. 

Uiteraard is het niet alles negatief, wat 
de klok slaat. Er zijn ook zat leuke en 
goede dingen te beleven met uw MSX-compu¬ 
ter, dus laat u niet uit het veld slaan 
door dit misschien wat negatief overkomend 
artikel• 


K.WESTERA. 


*********** LET OP *********** 
* * 

* MSX-Gids nr. 1,2 en 3 zijn * 

* * 

* UITVERKOCHT ! * 

****************************** 


GEVRAAGD 

MÉÉR KANSEN HT] 

VOOR Ji*) 

GEHANDICAPTEN JYfL 

Een handicap betekent: extra afgekeurd. 

Daarom vragen wij méér 
kansen op sociaal 
contact, werk, studie, 
vorming, wonen, vervoer, 


Steun 

daarom 

ons werk 

GIRO 625.000 


recreatie, enz. 

AVO-DOET 

wat écht nodig is 

Vraag informatie, 
word lid: 
AVO-Nederland, 
antwoordnr. 201, 

3800 VB Amersfoort. 
Tel.: 033-635214. 


53 





Z8l 

Schrij f v°°r onder-/ nevenstaand figuur een zo kort mogelijke procedure. Als ie denkt een 
Vnnr Ho oploss ' n9 ’® b®bben* stuur die dan aan : LOGO CENTRUM EDE, Annadaal 96 67 5 JC 
Voor de meeste originele oplossing is een aardige attentie beschikbaar ° 


LOOI! 


A 

Als je een procedure schrijft waarin het volgende voorkomt: ' ' 

drukaf [ tel : 080 - 238130 ] 

en hij is gedefinieerd , dan verschijnt het volgende: tel: 80 - 238130 
Vraag: waar is de eerste nul van 080 gebleven ? Hoe los je dat probleem op ? 

Als je er echt niet uit komt, dan draai je dat nummer maar, dan krijg je de oplossing. In ieder 
geval komen we de volgende keer met de oplossing voor de mensen die niet durven bellen. 



CHE 

iff* 





k S Hff if wa |e ze f kunt “''breiden en aan je eigen fantasie kunt aanpassen 
?, ■ l° e ' 6 f stelt je een vraag, en pakt jouw antwoord op in zijn reactie. 

leukste^zuHenwe publfceren bre,din9 of verand ering te hebben bedacht, stuur hem ons: de 


?!eer dialoog 

ss drukaf [ik heet Pjoeter.] wacht 150 ss 

drukaf [ hallo, hoe heet jij* ?] smurfl II steeds 

drukaf [hoe heet jouw woonplats ?] smurf2 II steeds 

drukaf [ hoe oud ben je /] smurf3 II steeds 

drukaf [ hoe vind je LOGO ?] smurf4 II steeds 

drukaf [ wat is je lievelingseten ?] smurfö 11 steeds 

drukaf [ in welke sport ben je het best ?] smurfö II steeds 

drukaf [ wat is je leukste hobby ? ] smurf7 II steeds 

drukaf [ stop je ermee ? ] smurfö II steeds 

drukaf [ daar ben ik niet blij mee ] wacht 150 ss 

drukaf [ tot ziens, bekijk het maar....] wacht 150 ss 

eind 

?!eer steeds 
drukaf [ ] 
wacht 150 ss 
eind 


LOG O CENTRUM EDE 
08380-21306 


De procedure steeds, wacht op een input (dat wat er geantwoord wordt op de vraag) met II 
Daarna zorgt drukaf [] dat er een regel wordt overgeslagen voordat het antwoord van Pjoeter 

komt. 

Dat antwoord moet wacht 150 wachten voordat eerst het scherm wordt schoon gemaakt. 

De volgende pro cedures zijn de antwoorden van Pjoeter. 

?leer smurfl :antw 
ss typ :antw drukaf [ , ] drukaf [ ] 
drukaf [ wat leuk je te voelen] 
eind 

?leer smurf2 :antw 

ss drukaf (zin [tjeetje, woon jij in ] :antw) 
eind 

?leer smurf3 :antw 

ss drukaf ( zin [ je ziet er jonger uit dan] :antw ) 
eind 

?leer smurf4 :antw 

ss drukaf ( zin [oh, vind jij logo] :antw ) 
eind 


?leer smurfS :antw 

ss drukaf (zin [ gatsie ik lust geen] :antw ) 
eind 

?!eer smurfö :antw 

ss drukaf (zin [ nou nou, :antw [ , ][ toe maar... ] :antw ) 
eind 

?leer smurf7 rantw 

ss drukaf ( zin [ik wou dat ik dat kon] :antw ) 
eind 

?Ieer smurfö rantw 

ss drukaf ( zin [ waarom zeg je nou] rantw 

eind 


Om grappen te bedenken met rantw, en niet steeds het hele programma te moeten doorlopen,kun 
je oefenen met een oefenprocedure: 

?!eer smurfx rantw 

drukaf (zin [ ] :a ntw ) 

eind 

Typ nu: 

?smurfx II (smurf+2‘de letter el) 

dan wacht Pjoeter op een input (II» lees lijst) voor rantw 

Als u ook een leuke puzzel heeft bedacht stuurt u hem maar op: LOGO Centrum Ede, 

Annadaal 96 6715 JC Ede 

De leukste zullen we in deze rubriek opnemen. 

Tot de volgende keer 
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Listing controle programma 2 


DEZE LISTING TESTER IS VAN TOEPASSING OP 
DE LISTINGS VANAF MSX GIDS NR.3 


DE LISTINGS UIT GIDS 1 EN 2 
TESTER CONTROLEREN! 


NIET MET DEZE 


De Listing tester is bedoeld als 
hulpmiddel voor de lezers, die de 
programma listings uit ons blad overnemen. 
Met dit programma publiceren wij een 
kontrole-telling van de programmaregels 
en, wanneer u een programma heeft 
overgenomen, kunt u dan —ook weer met 
ditzelfde programma- een kontrole-telling 
uitvoeren. Zijn de getallen achter de 
regel hetzelfde, dan is de kans erg groot, 
dat het programma goed is overgenomen. 
Zeker is dit echter niet, want wanneer 
bijvoorbeeld twee letters in een regel 
worden omgewisseld, dan is de telling toch 
goed. 

MSX—BASIC kent twee statements voor regels 
die alleen kommentaar bevatten: namelijk 
het REM-statement en regels die beginnen 
• Beide regels hebben over het 

algemeen geen invloed op de werking van 
het programma en daarom wordt de tekst van 
deze regels niet meegeteld. Wanneer de REM 
regels wel belangrijk zijn (b.v. bij 
machinetaal routines, die tijdens de loop 
van het programma op deze regels worden 
geplaatst) dan wordt dit uitdrukkeliik 
vermeld. 

De tester heeft hoge regelnummers, zodat 
hij aan het eind van de meeste programma's 
S^pl&ntst kan worden. U toetst dit 
programma in en kontroleert het met 
zichzelf door regelnummer 65170 te laten 
vervallen. 

Is het programma goed, dan moet dit met de 
opdracht SAVE "CAS:TESTER" op cassette 
worden gezet. (Wel eerst regel 65170 weer 
opneraen!!). 

Het programma wordt dan als ASCII-file op 
de band gezet. 

Niet wegschrijven met "CSAVE"!! 

U gebruikt verder dit programma als volgt: 

U tikt het programma, dat u wilt hebben in 
en zet dit eerst op cassette. Niet eerst 
RUNen, want bij sommige fouten kan een 
programma blijven 'hangen' en vaak moet 
dan alles opnieuw worden ingevoerd! Daarna 
kan met MERGE "CASrTESTER" het kontrole 
programma achter het ingetoetste programma 
worden gezet, waarna met RUN 65000 het 
kontroleren kan beginnen. Er is een keuze 
tussen de uitvoer naar een printer en naar 
het beeldscherm. In principe zal de 
printer worden gebruikt, maar bij kleine 
programma's, of voor het geval dat er nog 
slechts enkele regels nagekeken hoeven te 
worden, kan het ook via het beeldscherm. 

Voor. het laden van het testprogramma moet 
de instruktie MERGE worden gebruikt en 
niet L0AD ! (Dus MERGE "CASrTESTER"). Bij 
gebruik van L0AD komt de Listing tester 
namelijk in plaats van het reeds in het 
geheugen aanwezige programma te staan en 
dan valt er niets meer te testen. 


Let goed op bij DATA- regels. Wanneer hier 
getallen omgewisseld worden, zal de tester 
toch een goede telling geven! Bij het 
omwisselen van letters in BASTC- 
instrukties wordt wel een fout 
geconstateerd. 


Een controle telling wordt alleen bij 
grote -of ingewikkelde- programma's 
geplaatst. 


Beeldschermi WIDTH 37 


********* «****» 

* LISTING TESTER 2 * 

* Door Alfred Debels * 

* (0 1986 De MSX Gids * 

* Amsterdam * 

*********************** 


65000 ’ 

65010 * 

65020 * 

65030 » 

65040 " 

65050 " 

65060 ' 

65070 CLSïCLEARiSCREEN 0:WIDTH 40:PRI 

65080 PRINT "Weergave via beeldscherm 
of printer?" 

65090 PRINT SPRINT "B of P?! » 

65100 X$=INKEY$:IF X$<>"B" AND X$<>"P 
" THEN 65100 • r 

65110 START=32769! 

65120 RG=START+ 2 s T =0 

65140 VR=PEEK(START)+256*PEEK(START+1 

65150 NR=PEEK(RG)+236*PEEK(RG+1) 

65160 IF VR=0 THEN 65290 
65170 IF NR>=65000! THEN 65290 
65180 S= 0 s FOR I=RG +2 TO VR-i 
65190 A=PEEK(I) 

£5210 IF A=143 THEN I=VR:GOTO 65240 
65230 S= S+AiNEXT 
65240 S=SM0D256 
65250 T=T+S 

65260 IF X$="B" THEN PRINT USING "Reo 
el,##### - ###" 5 NR,S:GOTO 65280 Q 

"?nr 0 s LPRINT USING " Re 9 el!### *# “ ### 

65280 START=VR: RG=VR+2:G0T0 65140 
65290 IF X*="P" THEN 65310 
65300 PRINT:PRINT "Totaal! "sTi END 
65310 LPRINT "Totaal! "5 Ti END 


Regeli65000 

— 

58 

Regel!65010 

— 

58 

Regel!65020 

— 

58 

Regel:65030 

— 

58 

Regel t 65040 

- 

58 

Regel 1 65050 

- 

58 

Regel t 65060 

— 

58 

Regel:65070 

- 

151 

Regel:65080 

— 

129 

Regel!65090 

— 

32 

Regel t 65100 

— 

5 

Regel!65110 

- 

23 

Regel!65120 

— 

200 

Regel!65140 

— 

133 

Regel:65150 

— 

147 

Regeli65160 

- 

132 

Regel:65180 

— 

201 

Regeli65190 

— 

96 

Regel:65210 

- 

234 

Regel!65230 

— 

164 

Regeli65240 

- 

173 

Regel 1 65250 

— 

219 


Regel:65260 - 167 
Regel:65270 - 13 
Regel!652B0 - 136 
Regeli65290 - 239 
Regel!65300 - 233 
Regel!65310 - 42 
Totaal! 3275 
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de mini gids 

In deze rubriek kunnen onze lezers advertenties 
plaatsen, mits NIET VAN COMMERCIËLE AARD! Handela¬ 
ren kunnen onze advertentietarleven aanvragen. 

De redaktie behoudt zich het recht voor adverten¬ 
ties voor deze rubriek te weigeren. Inzendingen 
kunnen gestuurd worden naar Postbus 10252, 1001 EG 
Amsterdam en dienen voorzien te zijn van naam, 
adres en evt. telefoonnummer. Advertenties met 
alleen postbusnummer of antwoordnummer worden niet 
opgenomen • 


TE KOOP: 

TOSHIBA portable kleuren T.V. / monitor. 

11 cm. beeldbuis. PAL systeem. Werkt zowel 
op 220 Volt als op 12 Volt. 

Fl. 450,= 

Tel. 020-327464 


MSX GEBRUIKERSGROEPEN 


HCC MSX gq 
Postbus 51 
2630 AA Nootdorp 

MSX gg. West-Brabant 
Pijnboomstraat 10 
4731 AT Oudenbosch 

"De Leke" 
p/a F red De Winne 
Lekestraat 33 
9900 Eeklo Belgie 

YAMAHA CX5 gebruikersgroep 
p/a Coen van Splunder 
Diepenbroek 87 
5991 PT Baarlo 
Tel. 04707-3348 


RUILEN: 

MSX insteekmodule 'TRACK <5c FIELD’ hyper- 
olympic van Konami. Tel. 040-858832. 

Bellen tussen 15.30 en 17.30 uur en vragen 
* naar Frank Maximus. 


????? WIE HELPT ????? 


TILBURGSE MSX GEBRUIKERSGROEP 

Azuurweg 92 

5044 KD Tilburg. 

MUG MSX gebruikersgroep 
Christiaan Rakow 
Minervalaan 81 
1077 NT Amsterdam 
Tel. 020-766493 


G.Kock uit Doetinchem gebruikt zijn 
computer vooral voor wiskundige toepas¬ 
singen. Hij wil niet-lineaire functies 
direkt Invoeren. Op de Commodore 64 is dit 
-met een foefje- mogelijk. Kan dit ook op 
de MSX? Wie heeft een oplossing of een 
programmaatje om deze functies direkt in 
het geheugen weg te schrijven. 

AANGEBODEN: 

PHILIPS VG 8020 MSX Computer + discdrive + 
2 megabyte software op disc. 

Fl. 1300,= 
te1:05410-11180 


MSX GEBRUIKERSGROEP UDENH0UT EN OMSTREKEN 

p/a Wil van Aarle 

Armhoef 33 

5071 VW Udenhout 

MGU MSX gebruikersgroep Uden 
Inl. Carlo van Hout. 

Tel: 08859-2950 

MSX-club Belgie-Nederland 
p/a Mottaart 20 
3170 Herselt Belgie 

MSX-CLUB-FLEV0 
Schouw 53-45 
8232 X3 Lelystad 



Abonnement 

Een abonnement is voordeliger 

en je mist geen nummers! 


EEN ABONNEMENT KOST 
DOOR OVERMAKING VAN 
AMSTERDAM. 


FL. 40,= PER 6 NUMMERS EN IS TE 
DIT BEDRAG OP GIRO 5036011 T.N.V. 


VERKRIJGEN 
J.HERPS TE 


VOOR BELGIE: 3 F R . 750 OP BANKREKENINGNUMMER 235-0430464-87 BIJ 
DE GENERALE BANKMAAT S CHAPPIJ TE HASSELT T.N.V. J.HERPS, 
AMSTERDAM. 


G irobetaa Ikaarten 
achterzijde in te 
Uitgeverij HERPS, 
Tel. inlichtingen 


of Eurocheques (vergeet niet het nummer op de 
vullen) kunnen gestuurd worden naar: 

Postbus 10252, 1001 EG Amsterdam. 

over abonnementen en losse nummers: 020-327464 


56 











SERIEUS 


IN SOFTWARE 


TASWORD MSX -DE tekstverwerker! 100 Z 
Nederlandse vertaling en handleiding. 64 tekens per 
regel, dus u ziet op het scherm wat er op papier 
komt. Diskversie ook op de cassette! cass f 95,00 

MSX—64 PLUS -Nu met uitgebreide hand¬ 
leiding en grote-letter-routine ingebouwd. Werk in 
uw eigen programma's met 64 i.p.v. 40 letters per 
regel. Voor disk en cassette. cass f 34,50 

ZES EDUCATIEVE PROGRAMMA'S 
Waarin het spel-element een belangrijke rol speelt. 
Het gaat over een doolhof, een verfkanon of een 
vliegende schotel, maar ook over 'Optellen en 
aftrekken' (1), 'Cijferend Vermenigvuldigen' (2), 
'Procenten' (3), 'Geld* (4), 'Deelsommen' (5), en 
het 'Alfabet' (6). Prijs per stuk: cass f 34,50 

DRIE—IN—EEN — Driemaal edukatieve soft¬ 
ware op een (!) cassette: Aardrijkskunde (met grote 
kaart van Nederland), Rekenen en Tekenen, f 34,50 


FIL0TEL — Onze databank is 24 uur per dag 
bereikbaar voor iedere 'Viditeller' (050-145174). 

BRIDGE — Nederlands bridgeprogramma, gemaakt 
door een bridgeleraar, speelt op behoorlijk nivo, 
maar is ook geschikt voor beginners. cass f 59,00 


HIS0FT C++ - Ja, de programmeertaal C ! 
Voldoet, m.u.v. floatingpoint aan UNIX. Programma's 
in C runnen zonder de compiler en zijn ongewijzigd 
vaak bruikbaar op andere computers. disk f 185,00 


HIS0FT DEVPAC - Twee in een voor het 
werken met machinecode. GEN is de krachtige assem- 
bler. MON is de monitor en debugger. De diskversie 
werkt ook met MSX-D0S. disk f 185,00 cass f 89,00 


HIS0FT PASCAL - Pascal, ook voor MSX! 
M.b.v. deze compiler kunt u zelf programma's in 
Pascal schrijven, en onafhankelijk van de compiler 
runnen, disk (ook MSX-DOS) f 185,00 cass f 134,00 


REDEKUNDIG ONTLEDEN - Niet mals 
edukatief programma. Met de theorie en meer dan 120 
oefeningen over de hele reeks: van onderwerp t/m 
bijwoordelijke bepaling. Goed! cass f 59,00 


BESTELLEN - Onze produkten zijn verkrijg¬ 
baar in de goede computerzaak, maar u kunt ze ook 
rechtstreeks bestellen: telefonisch (050-137746) of 
door storting v.h. bedrag + f 3,50 verz.k. op giro 
20792 t.n.v. Filosoft Postbus 1353 9701BJ Groningen 


ü! 
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L. Willemsteeg 12-14, 2801 WC Gouda 

Wij hebben voor elke MSX de 
juiste printer, o.a.: 

- Seikosha SP 1000 (NLQ) f 895,- 

- Toshiba HXP-550 . ... f 795,- 

- Brother M-1109 (NLQ) . . f 695,- 

Bel voor inlichtingen of vraag 
een Print-out! 

Printerkabels uit voorraad . . f 69,- 


Software: 


Superfile MSX, een pracht bestands- 
programma. Geheel zelf in te richten 
met ruime opslag en uitgebreide prin- 
ter-instellingen. 

Zeer geschikt voor adressen, boeken, 
platen of katalogus. f 39 — 

Kasboek MSX, met maandtotalen en 
overzichten naar 100 rekeningen apart 

Zeer fraai. f 39 - 

Div. spelletjes, o.a.: 

Jet Set Willy . f 1 9 _ 

Manie Miner.f 19- 

Battle Ship.f 19,- 


Bestellen d.m.v. vooruitbetaling op 
giro 47 27 958 t.n.v. Data-Skip, Gou¬ 
da. Of d.m.v. zenden van giro/euro- 
cheque. (U heeft uw bestelling 1 dag 
later in huis.) 


Onze winkel is de gehele week (be¬ 
halve maandag) geopend. 

Telefoon: 01820-20581 


Data-Skip 
L Willemsteeg 10 
2801 WC Gouda 


HIER HAD UW ADVERTENTIE 
KUNNEN STAAN. 

BEL: 020 - 32.74.64! 











































































Ik daag u uit 


Ik daag u uit zelf te ontdekken wat u met de 
NTI-cursus "BASIC voor MSX-homecomputers" 
kunt bereiken. De leerzame, boeiende 
NTI-cursus maakt u helemaal 
vertrouwd met de 
AASX -wereldstandaard. 

Als u de onderstaande bon invult 
en opstuurt, brengt de postbode 
u binnenkort alle inlichtingen. 

Gratis en vrijblijvend. 


Geen speciale vooropleiding 

Om met het NTI de diepste MSX-hömecomputer-geheimen te ontdekken, hebt u 
geen speciale vooropleiding nodig. Evenmin hoeft u al iets van computers en pro¬ 
grammeren af te weten. U leert stap-voor-stap. Alle voorbeelden worden meteen in 
oefeningen gebruikt. 

U kunt gewoon thuisblijven 

U volgt de boeiende lessen thuis, dus in uw eigen vertrouwde omgeving. U oefent op 
uw eigen MSX-homecomputer, in uw eigen tempo en op de tijdstippen die u het best 
passen. Zo leert u op een plezierige manier de MSX-homecomputer volledig naar uw 
hand zetten. 


\ 


U krijgt 

een eigen leraar 

Vanaf de eerste les krijgt u hulp van een 
bevoegde en zeer deskundige leraar. Hij kijkt uw 
huiswerk na, geeft u goede raad en beantwoordt uw vragen. 
Hij past zich aan bij uw leeftijd, aanleg en ontwikkeling. 

Dat is een hele steun in de rug! 


Beschikt u niet over 


Er zijn nog andere populaire homecomputer-cursussen: 

★ BASIC voor de Commodore-64 en 128 

★ Machinetaal voor de C-64 en 128 

★ Homecomputer-PLUS-opleiding 
(BASIC én Machinetaal C-64 en 12£ 
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NEDERLANDS 
TALEN INSTITUUT 


Lid van de officiële 
MSX- Werkgroep Nederland 

Rechtzaad2 - 4703 RC Roosendaal 





Gratis Kennismakings-Bon 



c 

Aan het Nederlands Talen Instituut 

JA , stuur mij gratis en vrijblijvend van de 
cursus BAS IC voor MSX-homecomputers 
het uitvoerige informatie-pakket met kennismakings-les. 

Als ik liever met een andere cursus kennismaak, vul ik deze hieronder in: 

Ik heb geen enkele verplichting. Ik mag het pakket houden. Geen bezoek aan huis. 
D Dhr. O Mevr. G Mej. (Zó O*) sankruisen o.u.b.) Eén blokletter per streepje: 

Naam: I—L/._ 1 I —l—1_|_|_|_|_|_|_ I I I I i Voorletter: 1_| 

Strc r- J—I-L_ l_l_I_I_I-1 _1_I_1_1_I_I_I Nr.: l I I I I 
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een MSX-homecomputer? 


Géén probleem. Alsu 't wilt, levert 
het NTI u de MSX-homecomputer 
van uw keuze bij de lessen. En dit 
voor een uiterst lage prijs! 

U kunt kiezen uit: 



Sony Hit Bit-201P 


Goldstar FC-2Q0 


Uitvoerige informatie over de bij te leveren MSX-homecomputer vindt 

_ u straks in uw gratis kennismakings-pakket. 


Wilt u gratis kennismaken met een andere cursus? 


J I L 


J I I 


Het pakket is gratis voor iedereen van 16 jaar of ouder. 


& 


* Als voor opleiding is lager 
onderwijs voldoende, behalve 
voor cursussen met een ■ ervoor 


Off. erk. 

Middenstandsdiploma 
Off. erk.Horecadiploma's 
Caféhouder 

Off. erk. Horeca-diploma's 
Restauranthouder 
Levend Engels mei 

cassettes/platen (beginners) 

Vrij tekenen en schilderen 
Elektronisch orgel met 
cassettes 
Levend Frans met 
cassettes/platen (beginners) 


Naaien en knippen van kleding 
Levend Spaans met 
cassetios/platen (beginners) 
Gitaar met cassettes 
(beginners) compleet met, 
of zonder instrument 
Levend Duits met 
cassettes/platen (beginners) 
Off. erk. Praktijkdiploma 
Boekhouden 
Engels voor gevorderden 

(met cassettes/platen) 

Portable orgel/keyboard met 
cassettes compleet met, 
of zonder CASIO-MT35 
Populaire elektrotechniek 
en elektronica 


Levend Italiaans met 
cassettes/platen (beginners) 
Eenvoudig 

boekhouden / bedrijf srekenen 
Populaire autotechniek 
Praktische Dsvcholouie 
Algemene ontwikkeling 
Kinderverzorging 
AMBI-modulen B. 1 en T.2 
COBOL-programmeur 
Gitaar voor gevorderden 
(met cassettes) 

AMBI-modulen 1.1 en 1.2 
Basiskennis computerkunde 
voor beroep en bedrijf 
Kinderverzorging 
en Opvoedkunde 








































